equal
deleted
inserted
replaced
17 |
17 |
18 signature CLASIMP = |
18 signature CLASIMP = |
19 sig |
19 sig |
20 val addSss: Proof.context -> Proof.context |
20 val addSss: Proof.context -> Proof.context |
21 val addss: Proof.context -> Proof.context |
21 val addss: Proof.context -> Proof.context |
22 val addss': Proof.context -> Proof.context |
|
23 val clarsimp_tac: Proof.context -> int -> tactic |
22 val clarsimp_tac: Proof.context -> int -> tactic |
24 val mk_auto_tac: Proof.context -> int -> int -> tactic |
23 val mk_auto_tac: Proof.context -> int -> int -> tactic |
25 val auto_tac: Proof.context -> tactic |
24 val auto_tac: Proof.context -> tactic |
26 val force_tac: Proof.context -> int -> tactic |
25 val force_tac: Proof.context -> int -> tactic |
27 val fast_simp_tac: Proof.context -> int -> tactic |
26 val fast_simp_tac: Proof.context -> int -> tactic |
53 |
52 |
54 (*Add a simpset to the claset!*) |
53 (*Add a simpset to the claset!*) |
55 (*Caution: only one simpset added can be added by each of addSss and addss*) |
54 (*Caution: only one simpset added can be added by each of addSss and addss*) |
56 val addSss = clasimp Classical.addSafter "safe_asm_full_simp_tac" safe_asm_full_simp_tac; |
55 val addSss = clasimp Classical.addSafter "safe_asm_full_simp_tac" safe_asm_full_simp_tac; |
57 val addss = clasimp Classical.addbefore "asm_full_simp_tac" Simplifier.asm_full_simp_tac; |
56 val addss = clasimp Classical.addbefore "asm_full_simp_tac" Simplifier.asm_full_simp_tac; |
58 (* FIXME "asm_lr_simp_tac" !? *) |
|
59 val addss' = clasimp Classical.addbefore "asm_full_simp_tac" Simplifier.asm_lr_simp_tac; |
|
60 |
57 |
61 |
58 |
62 (* iffs: addition of rules to simpsets and clasets simultaneously *) |
59 (* iffs: addition of rules to simpsets and clasets simultaneously *) |
63 |
60 |
64 local |
61 local |