Idris2/tests/idris2/interactive018/PlusPrf.idr
2020-08-04 20:55:48 +01:00

8 lines
169 B
Idris

%hint
mycong : (f : a -> b) -> x = y -> f x = f y
mycong f Refl = Refl
plusZ : (n : Nat) -> plus n Z = n
plusS : (n : Nat) -> (m : Nat) -> plus n (S m) = S (plus n m)