20 lines
No EOL
592 B
Text
20 lines
No EOL
592 B
Text
Variable f : Int -> Int -> Int
|
|
|
|
(**
|
|
refl_tac = apply_tac("Refl")
|
|
congr_tac = apply_tac("Congr")
|
|
symm_tac = apply_tac("Symm")
|
|
trans_tac = apply_tac("Trans")
|
|
unfold_homo_eq_tac = unfold_tac("eq")
|
|
auto = unfold_homo_eq_tac .. REPEAT(ORELSE(refl_tac, congr_tac, assumption_tac, THEN(symm_tac, assumption_tac, now_tac)))
|
|
**)
|
|
|
|
Theorem T1 (a b c : Int) (H1 : a = b) (H2 : a = c) : (f (f a a) b) = (f (f b c) a).
|
|
apply auto.
|
|
done.
|
|
|
|
Theorem T2 (a b c : Int) (H1 : a = b) (H2 : a = c) : (f (f a c)) = (f (f b a)).
|
|
apply auto.
|
|
done.
|
|
|
|
Show Environment 2. |