src/HOL/HOL.ML
author haftmann
Thu, 29 Dec 2005 15:31:27 +0100
changeset 18519 b963eb11b3b4
parent 17274 746bb4c56800
child 18916 fda5b8dbbef6
permissions -rw-r--r--
changes in code generator keywords
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
12999
wenzelm
parents: 11977
diff changeset
     1
(* legacy ML bindings *)
11749
fc8afdc58b26 added ML bindings from former theory Ord;
wenzelm
parents: 11588
diff changeset
     2
13638
2b234b079245 Added choice_eq.
berghofe
parents: 12999
diff changeset
     3
val choice_eq = thm "choice_eq";
12999
wenzelm
parents: 11977
diff changeset
     4
wenzelm
parents: 11977
diff changeset
     5
structure HOL =
wenzelm
parents: 11977
diff changeset
     6
struct
wenzelm
parents: 11977
diff changeset
     7
  val thy = the_context ();
wenzelm
parents: 11977
diff changeset
     8
  val eq_reflection = eq_reflection;
wenzelm
parents: 11977
diff changeset
     9
  val refl = refl;
wenzelm
parents: 11977
diff changeset
    10
  val subst = subst;
wenzelm
parents: 11977
diff changeset
    11
  val ext = ext;
wenzelm
parents: 11977
diff changeset
    12
  val impI = impI;
wenzelm
parents: 11977
diff changeset
    13
  val mp = mp;
wenzelm
parents: 11977
diff changeset
    14
  val True_def = True_def;
wenzelm
parents: 11977
diff changeset
    15
  val All_def = All_def;
wenzelm
parents: 11977
diff changeset
    16
  val Ex_def = Ex_def;
wenzelm
parents: 11977
diff changeset
    17
  val False_def = False_def;
wenzelm
parents: 11977
diff changeset
    18
  val not_def = not_def;
wenzelm
parents: 11977
diff changeset
    19
  val and_def = and_def;
wenzelm
parents: 11977
diff changeset
    20
  val or_def = or_def;
wenzelm
parents: 11977
diff changeset
    21
  val Ex1_def = Ex1_def;
wenzelm
parents: 11977
diff changeset
    22
  val iff = iff;
wenzelm
parents: 11977
diff changeset
    23
  val True_or_False = True_or_False;
wenzelm
parents: 11977
diff changeset
    24
  val Let_def = Let_def;
wenzelm
parents: 11977
diff changeset
    25
  val if_def = if_def;
wenzelm
parents: 11977
diff changeset
    26
end;
wenzelm
parents: 11977
diff changeset
    27
wenzelm
parents: 11977
diff changeset
    28
open HOL;