@@ -70,8 +70,8 @@ pair : a -> b -> (a, b)
70pair = %runElab (do intros ; construct ; hypothesis ; hypothesis)
70pair = %runElab (do intros ; construct ; hypothesis ; hypothesis)
72data Even : Nat -> Type where
72data Even : Nat -> Type where
73− evenZ : Even Z
73+ EvenZ : Even Z
74− evenSS : Even n -> Even (S (S n))
74+ EvenSS : Even n -> Even (S (S n))
76even6 : Even 6
76even6 : Even 6
77even6 = %runElab (do construct ; construct ; construct ; construct ; skip)
77even6 = %runElab (do construct ; construct ; construct ; construct ; skip)