17 lines
310 B
Text
17 lines
310 B
Text
new_frontend
|
|
|
|
theorem tst1 (x y z : Nat) : y = z → x = x → x = y → x = z :=
|
|
begin
|
|
intros h1 h2 h3;
|
|
revert h2;
|
|
intro h2;
|
|
exact Eq.trans h3 h1
|
|
end
|
|
|
|
theorem tst2 (x y z : Nat) : y = z → x = x → x = y → x = z :=
|
|
begin
|
|
intros h1 h2 h3;
|
|
revert y;
|
|
intros y hb ha;
|
|
exact Eq.trans ha hb
|
|
end
|