Idris2/tests/idris2/interactive018/PlusPrf.idr

8 lines
169 B
Idris
Raw Normal View History

2020-08-04 22:55:48 +03:00
%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)