lean2/tests/lean/calc2.lean

11 lines
222 B
Text
Raw Normal View History

Variables a b c d e : Nat.
Variable f : Nat -> Nat.
Axiom H1 : f a = a.
Theorem T : f (f (f a)) = a
:= calc f (f (f a)) = f (f a) : { H1 }
... = f a : { H1 }
... = a : { H1 }.