src/Tools/IsaPlanner/rw_inst.ML
changeset 36945 9bec62c10714
parent 35845 e5980f0ad025
child 43324 2b47822868e4
     1.1 --- a/src/Tools/IsaPlanner/rw_inst.ML	Sat May 15 21:41:32 2010 +0200
     1.2 +++ b/src/Tools/IsaPlanner/rw_inst.ML	Sat May 15 21:50:05 2010 +0200
     1.3 @@ -54,13 +54,13 @@
     1.4  
     1.5  (* beta contract the theorem *)
     1.6  fun beta_contract thm = 
     1.7 -    equal_elim (Thm.beta_conversion true (Thm.cprop_of thm)) thm;
     1.8 +    Thm.equal_elim (Thm.beta_conversion true (Thm.cprop_of thm)) thm;
     1.9  
    1.10  (* beta-eta contract the theorem *)
    1.11  fun beta_eta_contract thm = 
    1.12      let
    1.13 -      val thm2 = equal_elim (Thm.beta_conversion true (Thm.cprop_of thm)) thm
    1.14 -      val thm3 = equal_elim (Thm.eta_conversion (Thm.cprop_of thm2)) thm2
    1.15 +      val thm2 = Thm.equal_elim (Thm.beta_conversion true (Thm.cprop_of thm)) thm
    1.16 +      val thm3 = Thm.equal_elim (Thm.eta_conversion (Thm.cprop_of thm2)) thm2
    1.17      in thm3 end;
    1.18  
    1.19