src/HOL/Import/Generate-HOL/GenHOL4Real.thy
author blanchet
Wed, 02 Jun 2010 15:18:48 +0200
changeset 37321 9d7cfae95b30
parent 35267 8dfd816713c6
child 44064 5bce8ff0d9ae
permissions -rw-r--r--
honor "xsymbols"

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

theory GenHOL4Real imports GenHOL4Base begin

import_segment "hol4";

setup_dump "../HOL" "HOL4Real";

append_dump "theory HOL4Real imports HOL4Base begin";

import_theory realax;

type_maps
  real > RealDef.real;

const_maps
  real_0   > Groups.zero      :: real
  real_1   > Groups.one       :: real
  real_neg > Groups.uminus    :: "real => real"
  inv      > Groups.inverse   :: "real => real"
  real_add > Groups.plus      :: "[real,real] => real"
  real_mul > Groups.times     :: "[real,real] => real"
  real_lt  > Orderings.less      :: "[real,real] => 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    > Orderings.less_eq :: "[real,real] => bool"
  real_sub    > Groups.minus :: "[real,real] => real"
  "/"         > Rings.divide :: "[real,real] => real"
  pow         > Power.power :: "[real,nat] => real"
  abs         > Groups.abs :: "real => real"
  real_of_num > RealDef.real :: "nat => real";

end_import;

import_theory topology;
end_import;

import_theory nets;
end_import;

import_theory seq;
const_renames
"-->" > "hol4-->";

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