simplified Assumption/ProofContext.export;
authorwenzelm
Wed Aug 02 22:26:40 2006 +0200 (2006-08-02)
changeset 202888ff4a0ea49b2
parent 20287 8cbcb46c3c09
child 20289 ba7a7c56bed5
simplified Assumption/ProofContext.export;
src/HOL/Nominal/nominal_induct.ML
src/HOL/Tools/meson.ML
src/Provers/induct_method.ML
     1.1 --- a/src/HOL/Nominal/nominal_induct.ML	Wed Aug 02 22:26:39 2006 +0200
     1.2 +++ b/src/HOL/Nominal/nominal_induct.ML	Wed Aug 02 22:26:40 2006 +0200
     1.3 @@ -113,7 +113,7 @@
     1.4              |> Seq.maps (fn rule' =>
     1.5                CASES (rule_cases rule' cases)
     1.6                  (Tactic.rtac (rename_params_rule false [] rule') i THEN
     1.7 -                  PRIMSEQ (Seq.singleton (ProofContext.exports defs_ctxt ctxt))) st'))))
     1.8 +                  PRIMITIVE (singleton (ProofContext.export defs_ctxt ctxt))) st'))))
     1.9      THEN_ALL_NEW_CASES InductMethod.rulify_tac
    1.10    end;
    1.11  
     2.1 --- a/src/HOL/Tools/meson.ML	Wed Aug 02 22:26:39 2006 +0200
     2.2 +++ b/src/HOL/Tools/meson.ML	Wed Aug 02 22:26:40 2006 +0200
     2.3 @@ -451,7 +451,7 @@
     2.4  (*Expand all definitions (presumably of Skolem functions) in a proof state.*)
     2.5  fun expand_defs_tac st =
     2.6    let val defs = filter (can dest_equals) (#hyps (crep_thm st))
     2.7 -  in  LocalDefs.def_export false defs st  end;
     2.8 +  in  PRIMITIVE (LocalDefs.def_export false defs) st  end;
     2.9  
    2.10  (*Basis of all meson-tactics.  Supplies cltac with clauses: HOL disjunctions*)
    2.11  fun MESON cltac i st = 
     3.1 --- a/src/Provers/induct_method.ML	Wed Aug 02 22:26:39 2006 +0200
     3.2 +++ b/src/Provers/induct_method.ML	Wed Aug 02 22:26:40 2006 +0200
     3.3 @@ -404,7 +404,7 @@
     3.4              |> Seq.maps (fn rule' =>
     3.5                CASES (rule_cases rule' cases)
     3.6                  (Tactic.rtac rule' i THEN
     3.7 -                  PRIMSEQ (Seq.singleton (ProofContext.exports defs_ctxt ctxt))) st'))))
     3.8 +                  PRIMITIVE (singleton (ProofContext.export defs_ctxt ctxt))) st'))))
     3.9      THEN_ALL_NEW_CASES rulify_tac
    3.10    end;
    3.11