| 12999 |      1 | (* legacy ML bindings *)
 | 
| 11749 |      2 | 
 | 
| 13638 |      3 | val choice_eq = thm "choice_eq";
 | 
| 12999 |      4 | 
 | 
|  |      5 | structure HOL =
 | 
|  |      6 | struct
 | 
|  |      7 |   val thy = the_context ();
 | 
|  |      8 |   val eq_reflection = eq_reflection;
 | 
|  |      9 |   val refl = refl;
 | 
|  |     10 |   val subst = subst;
 | 
|  |     11 |   val ext = ext;
 | 
|  |     12 |   val impI = impI;
 | 
|  |     13 |   val mp = mp;
 | 
|  |     14 |   val True_def = True_def;
 | 
|  |     15 |   val All_def = All_def;
 | 
|  |     16 |   val Ex_def = Ex_def;
 | 
|  |     17 |   val False_def = False_def;
 | 
|  |     18 |   val not_def = not_def;
 | 
|  |     19 |   val and_def = and_def;
 | 
|  |     20 |   val or_def = or_def;
 | 
|  |     21 |   val Ex1_def = Ex1_def;
 | 
|  |     22 |   val iff = iff;
 | 
|  |     23 |   val True_or_False = True_or_False;
 | 
|  |     24 |   val Let_def = Let_def;
 | 
|  |     25 |   val if_def = if_def;
 | 
|  |     26 | end;
 | 
|  |     27 | 
 | 
|  |     28 | open HOL;
 |