Skip to content

Commit ff80c26

Browse files
committed
Use operator instead of syntax for iff.
1 parent 409ff78 commit ff80c26

File tree

1 file changed

+6
-3
lines changed

1 file changed

+6
-3
lines changed

src/Smallstep.lidr

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -483,10 +483,13 @@ We can use this terminology to generalize the observation we made
483483
> Left va => va
484484
> Right pa => void (prf pa)
485485
486-
> iff : {p,q : Type} -> Type
487-
> iff {p} {q} = (p -> q, q -> p)
486+
> iff : (p,q : Type) -> Type
487+
> iff p q = (p -> q, q -> p)
488+
489+
> infixl 6 <->
490+
> (<->) : (p: Type) -> (q:Type) -> Type
491+
> (<->) = iff
488492
489-
> syntax [p] "<->" [q] = iff {p} {q}
490493
491494
> nf_same_as_value : (normal_form Step t) <-> (Value t)
492495
> nf_same_as_value {t} = (nf_is_value t,value_is_nf t)

0 commit comments

Comments
 (0)