src/HOL/Import/Generate-HOL/GenHOL4Real.thy
author obua
Sun, 09 May 2004 23:04:36 +0200
changeset 14722 8e739a6eaf11
parent 14620 1be590fd2422
child 15647 b1f486a9c56b
permissions -rw-r--r--
replaced apply-style proof for instance Multiset :: plus_ac0 by recommended Isar proof style

(*  Title:      HOL/Import/Generate-HOL/GenHOL4Real.thy
    ID:         $Id$
    Author:     Sebastian Skalberg (TU Muenchen)
*)

theory GenHOL4Real = GenHOL4Base:

import_segment "hol4";

setup_dump "../HOL" "HOL4Real";

append_dump "theory HOL4Real = HOL4Base:";

import_theory realax;

type_maps
  real > RealDef.real;

const_maps
  real_0   > 0           :: real
  real_1   > 1           :: real
  real_neg > uminus      :: "real \<Rightarrow> real"
  inv      > HOL.inverse :: "real \<Rightarrow> real"
  real_add > "op +"      :: "[real,real] \<Rightarrow> real"
  real_mul > "op *"      :: "[real,real] \<Rightarrow> real"
  real_lt  > "op <"      :: "[real,real] \<Rightarrow> bool";

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 real;

const_maps
  real_gt     > HOL4Compat.real_gt
  real_ge     > HOL4Compat.real_ge
  real_lte    > "op <="      :: "[real,real] \<Rightarrow> bool"
  real_sub    > "op -"       :: "[real,real] \<Rightarrow> real"
  "/"         > HOL.divide   :: "[real,real] \<Rightarrow> real"
  pow         > Nat.power    :: "[real,nat] \<Rightarrow> real"
  abs         > HOL.abs      :: "real \<Rightarrow> real"
  real_of_num > RealDef.real :: "nat \<Rightarrow> real";

end_import;

import_theory topology;
end_import;

import_theory nets;
end_import;

import_theory seq;
end_import;

import_theory lim;
end_import;

import_theory powser;
end_import;

import_theory transc;
end_import;

import_theory poly;
end_import;

append_dump "end";

flush_dump;

import_segment "";

end