diff options
Diffstat (limited to 'interp/coqlib.ml')
| -rw-r--r-- | interp/coqlib.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/interp/coqlib.ml b/interp/coqlib.ml index 0cf9c934dd..5fe0329f6b 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -143,8 +143,19 @@ type coq_sigma_data = { intro : constr; typ : constr } +type coq_bool_data = { + andb : constr; + andb_prop : constr; + andb_true_intro : constr} + type 'a delayed = unit -> 'a +let build_bool_type () = + { andb = init_constant ["Datatypes"] "andb"; + andb_prop = init_constant ["Datatypes"] "andb_prop"; + andb_true_intro = init_constant ["Datatypes"] "andb_true_intro" } + + let build_sigma_set () = anomaly "Use build_sigma_type" let build_sigma_type () = |