qualified Proofterm.proofs;
authorwenzelm
Mon Oct 29 16:13:41 2007 +0100 (2007-10-29)
changeset 252237463251e7273
parent 25222 78943ac46f6d
child 25224 6d4d26e878f4
qualified Proofterm.proofs;
src/HOL/Main.thy
src/HOL/Tools/datatype_realizer.ML
src/Pure/ProofGeneral/ROOT.ML
src/Pure/ProofGeneral/preferences.ML
src/Pure/ProofGeneral/proof_general_pgip.ML
src/Pure/pure_setup.ML
     1.1 --- a/src/HOL/Main.thy	Mon Oct 29 10:37:09 2007 +0100
     1.2 +++ b/src/HOL/Main.thy	Mon Oct 29 16:13:41 2007 +0100
     1.3 @@ -13,6 +13,6 @@
     1.4    PreList} already includes most HOL theories.
     1.5  *}
     1.6  
     1.7 -ML {* val HOL_proofs = !proofs *}
     1.8 +ML {* val HOL_proofs = ! Proofterm.proofs *}
     1.9  
    1.10  end
     2.1 --- a/src/HOL/Tools/datatype_realizer.ML	Mon Oct 29 10:37:09 2007 +0100
     2.2 +++ b/src/HOL/Tools/datatype_realizer.ML	Mon Oct 29 16:13:41 2007 +0100
     2.3 @@ -217,7 +217,7 @@
     2.4    end;
     2.5  
     2.6  fun add_dt_realizers names thy =
     2.7 -  if !proofs < 2 then thy
     2.8 +  if ! Proofterm.proofs < 2 then thy
     2.9    else let
    2.10      val _ = message "Adding realizers for induction and case analysis ..."
    2.11      val infos = map (DatatypePackage.the_datatype thy) names;
     3.1 --- a/src/Pure/ProofGeneral/ROOT.ML	Mon Oct 29 10:37:09 2007 +0100
     3.2 +++ b/src/Pure/ProofGeneral/ROOT.ML	Mon Oct 29 16:13:41 2007 +0100
     3.3 @@ -15,7 +15,7 @@
     3.4  
     3.5  use "pgip_isabelle.ML";
     3.6  use "pgml_isabelle.ML";
     3.7 -(use |> setmp proofs 1 |> setmp quick_and_dirty true) "preferences.ML";
     3.8 +(use |> setmp Proofterm.proofs 1 |> setmp quick_and_dirty true) "preferences.ML";
     3.9  use "pgip_parser.ML";
    3.10  
    3.11  use "parsing.ML";   (* old version *)
     4.1 --- a/src/Pure/ProofGeneral/preferences.ML	Mon Oct 29 10:37:09 2007 +0100
     4.2 +++ b/src/Pure/ProofGeneral/preferences.ML	Mon Oct 29 16:13:41 2007 +0100
     4.3 @@ -57,8 +57,8 @@
     4.4  
     4.5  val proof_pref =
     4.6      let
     4.7 -        fun get () = PgipTypes.bool_to_pgstring (! proofs >= 2)
     4.8 -        fun set s = proofs := (if PgipTypes.read_pgipbool s then 2 else 1)
     4.9 +        fun get () = PgipTypes.bool_to_pgstring (! Proofterm.proofs >= 2)
    4.10 +        fun set s = Proofterm.proofs := (if PgipTypes.read_pgipbool s then 2 else 1)
    4.11      in
    4.12          mkpref get set PgipTypes.Pgipbool "full-proofs"
    4.13                 "Record full proof objects internally"
     5.1 --- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Mon Oct 29 10:37:09 2007 +0100
     5.2 +++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Mon Oct 29 16:13:41 2007 +0100
     5.3 @@ -579,7 +579,7 @@
     5.4  
     5.5  fun set_proverflag_thmdeps b =
     5.6      (show_theorem_dependencies := b;
     5.7 -     proofs := (if b then 1 else 2))
     5.8 +     Proofterm.proofs := (if b then 1 else 2))
     5.9  
    5.10  fun setproverflag (Setproverflag vs) =
    5.11      let 
     6.1 --- a/src/Pure/pure_setup.ML	Mon Oct 29 10:37:09 2007 +0100
     6.2 +++ b/src/Pure/pure_setup.ML	Mon Oct 29 16:13:41 2007 +0100
     6.3 @@ -44,4 +44,4 @@
     6.4  val cd = File.cd o Path.explode;
     6.5  ml_prompts "ML> " "ML# ";
     6.6  
     6.7 -proofs := 0;
     6.8 +Proofterm.proofs := 0;