2014-01-05 12:05:08 -08:00
|
|
|
import Int.
|
2014-01-05 10:32:47 -08:00
|
|
|
(*
|
2013-12-07 15:37:54 -08:00
|
|
|
|
2014-01-05 19:10:21 -08:00
|
|
|
-- Tactic for trying to prove goal using reflexivity, congruence and available assumptions
|
|
|
|
|
congr_tac = Try(unfold_tac("eq")) .. Repeat(OrElse(apply_tac("refl"), apply_tac("congr"), assumption_tac()))
|
2013-12-07 15:37:54 -08:00
|
|
|
|
2014-01-05 10:32:47 -08:00
|
|
|
*)
|
2013-12-07 15:37:54 -08:00
|
|
|
|
2014-01-15 16:35:33 -08:00
|
|
|
exit -- temporarily disable the following test
|
|
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
theorem T1 (a b : Int) (f : Int -> Int) : a = b -> (f (f a)) = (f (f b)) :=
|
2013-12-07 15:37:54 -08:00
|
|
|
fun assumption : a = b,
|
2014-02-06 07:50:22 -08:00
|
|
|
show (f (f a)) = (f (f b)), by congr_tac
|
2013-12-07 15:37:54 -08:00
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 1.
|
