src/HOL/Import/HOL4/Template/GenHOL4Real.thy
changeset 47259 2d4ea84278da
parent 47258 880e587eee9f
child 47260 3b9eeb4a2967
--- a/src/HOL/Import/HOL4/Template/GenHOL4Real.thy	Sun Apr 01 14:50:47 2012 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,101 +0,0 @@
-(*  Title:      HOL/Import/HOL4/Template/GenHOL4Real.thy
-    Author:     Sebastian Skalberg (TU Muenchen)
-*)
-
-theory GenHOL4Real
-imports GenHOL4Base
-begin
-
-import_segment "hol4"
-
-setup_dump "../Generated" "HOL4Real"
-
-append_dump {*theory HOL4Real
-imports HOL4Base
-begin
-*}
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" realax;
-
-type_maps
-  real > RealDef.real;
-
-const_maps
-  real_0   > Groups.zero_class.zero :: real
-  real_1   > Groups.one_class.one   :: real
-  real_neg > Groups.uminus_class.uminus :: "real \<Rightarrow> real"
-  inv > Fields.inverse_class.inverse :: "real \<Rightarrow> real"
-  real_add > Groups.plus_class.plus :: "real \<Rightarrow> real \<Rightarrow> real"
-  real_sub > Groups.minus_class.minus :: "real \<Rightarrow> real \<Rightarrow> real"
-  real_mul > Groups.times_class.times :: "real \<Rightarrow> real \<Rightarrow> real"
-  real_div > Fields.inverse_class.divide :: "real \<Rightarrow> real \<Rightarrow> real"
-  real_lt > Orderings.ord_class.less :: "real \<Rightarrow> real \<Rightarrow> bool"
-  mk_real > HOL.undefined   (* Otherwise proof_import_concl fails *)
-  dest_real > HOL.undefined
-
-ignore_thms
-    real_TY_DEF
-    real_tybij
-    real_0
-    real_1
-    real_neg
-    real_inv
-    real_add
-    real_mul
-    real_lt
-    real_of_hreal
-    hreal_of_real
-    REAL_ISO_EQ
-    REAL_POS
-    SUP_ALLPOS_LEMMA1
-    SUP_ALLPOS_LEMMA2
-    SUP_ALLPOS_LEMMA3
-    SUP_ALLPOS_LEMMA4;
-
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" real;
-
-const_maps
-  real_gt     > Compatibility.real_gt
-  real_ge     > Compatibility.real_ge
-  real_lte    > Orderings.ord_class.less_eq :: "real \<Rightarrow> real \<Rightarrow> bool"
-  real_sub    > Groups.minus_class.minus :: "real \<Rightarrow> real \<Rightarrow> real"
-  "/"         > Fields.inverse_class.divide :: "real \<Rightarrow> real \<Rightarrow> real"
-  pow         > Power.power_class.power :: "real \<Rightarrow> nat \<Rightarrow> real"
-  abs         > Groups.abs_class.abs :: "real => real"
-  real_of_num > RealDef.real :: "nat => real";
-
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" topology;
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" nets;
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" seq;
-const_renames
-"-->" > "hol4-->";
-
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" lim;
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" powser;
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" transc;
-end_import;
-
-import_theory "~~/src/HOL/Import/HOL4/Generated" poly;
-end_import;
-
-append_dump "end";
-
-flush_dump;
-
-import_segment "";
-
-end