src/HOL/Import/Generate-HOL/GenHOL4Real.thy
author haftmann
Fri, 17 Mar 2006 09:34:23 +0100
changeset 19277 f7602e74d948
parent 19233 77ca20b0ed77
child 22997 d4f3b015b50b
permissions -rw-r--r--
renamed op < <= to Orderings.less(_eq)

(*  Title:      HOL/Import/Generate-HOL/GenHOL4Real.thy
    ID:         $Id$
    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   > 0           :: real
  real_1   > 1           :: real
  real_neg > uminus      :: "real => real"
  inv      > HOL.inverse :: "real => real"
  real_add > HOL.plus    :: "[real,real] => real"
  real_mul > HOL.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    > HOL.minus    :: "[real,real] => real"
  "/"         > HOL.divide   :: "[real,real] => real"
  pow         > Nat.power    :: "[real,nat] => real"
  abs         > HOL.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