src/HOL/Import/Generate-HOL/GenHOL4Base.thy
changeset 35092 cfe605c54e50
parent 34974 18b41bba42b5
child 35267 8dfd816713c6
equal deleted inserted replaced
35091:59b41ba431b5 35092:cfe605c54e50
   164 end_import;
   164 end_import;
   165 
   165 
   166 import_theory prim_rec;
   166 import_theory prim_rec;
   167 
   167 
   168 const_maps
   168 const_maps
   169     "<" > Algebras.less :: "[nat,nat]=>bool";
   169     "<" > Orderings.less :: "[nat,nat]=>bool";
   170 
   170 
   171 end_import;
   171 end_import;
   172 
   172 
   173 import_theory arithmetic;
   173 import_theory arithmetic;
   174 
   174 
   179   NUMERAL      > HOL4Compat.NUMERAL
   179   NUMERAL      > HOL4Compat.NUMERAL
   180   num_case     > Nat.nat.nat_case
   180   num_case     > Nat.nat.nat_case
   181   ">"          > HOL4Compat.nat_gt
   181   ">"          > HOL4Compat.nat_gt
   182   ">="         > HOL4Compat.nat_ge
   182   ">="         > HOL4Compat.nat_ge
   183   FUNPOW       > HOL4Compat.FUNPOW
   183   FUNPOW       > HOL4Compat.FUNPOW
   184   "<="         > Algebras.less_eq :: "[nat,nat]=>bool"
   184   "<="         > Orderings.less_eq :: "[nat,nat]=>bool"
   185   "+"          > Algebras.plus :: "[nat,nat]=>nat"
   185   "+"          > Algebras.plus :: "[nat,nat]=>nat"
   186   "*"          > Algebras.times :: "[nat,nat]=>nat"
   186   "*"          > Algebras.times :: "[nat,nat]=>nat"
   187   "-"          > Algebras.minus :: "[nat,nat]=>nat"
   187   "-"          > Algebras.minus :: "[nat,nat]=>nat"
   188   MIN          > Orderings.min :: "[nat,nat]=>nat"
   188   MIN          > Orderings.min :: "[nat,nat]=>nat"
   189   MAX          > Orderings.max :: "[nat,nat]=>nat"
   189   MAX          > Orderings.max :: "[nat,nat]=>nat"