test.ML
author nipkow
Wed, 22 Dec 1993 12:43:37 +0100
changeset 26 5e3aa998e94e
parent 0 7949f97df77a
permissions -rw-r--r--
added Pair_eq to pair_ss in prod.ML removed it locally in llist.ML because preconditions of the form <a,b> = <?x,?y>, which used to be solved by reflexivity, now rewrote to a = ?x & b = ?y, which is not solved by reflexivity.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
7949f97df77a Initial revision
clasohm
parents:
diff changeset
     1
let
7949f97df77a Initial revision
clasohm
parents:
diff changeset
     2
 fun tac ss = resolve_tac(prems_of_ss ss) ORELSE' asm_simp_tac ss;
7949f97df77a Initial revision
clasohm
parents:
diff changeset
     3
 val ss = set_prove_tac(HOL_ss addsimps [Suc_lessD],tac)
7949f97df77a Initial revision
clasohm
parents:
diff changeset
     4
in prove_goal Nat.thy "!!x. Suc(Suc(Suc(x)))<y ==> x<y"
7949f97df77a Initial revision
clasohm
parents:
diff changeset
     5
     (fn _ => [asm_simp_tac ss 1])
7949f97df77a Initial revision
clasohm
parents:
diff changeset
     6
end;