src/Provers/clasimp.ML
changeset 42805 a6dafa3d7ada
parent 42793 88bee9f6eec7
child 43331 01f051619eee
equal deleted inserted replaced
42804:125bddad6bd6 42805:a6dafa3d7ada
    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