diff options
| author | Chantal Keller <Chantal.Keller@inria.fr> | 2015-02-10 18:41:46 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@inria.fr> | 2015-02-10 18:41:46 +0100 |
| commit | ff9b5494cb1943339543eeac41683a8ec2dda437 (patch) | |
| tree | 21af4c0fff64fbd03c6c2006da1e305e849ebbff /src/versions/native | |
| parent | 5311b1fa064949089b8d17e34eb31a62426f71fd (diff) | |
| download | smtcoq-ff9b5494cb1943339543eeac41683a8ec2dda437.tar.gz smtcoq-ff9b5494cb1943339543eeac41683a8ec2dda437.zip | |
More on the support for standard Coq (not working yet)
Diffstat (limited to 'src/versions/native')
| -rw-r--r-- | src/versions/native/structures.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index de2879c..26edef3 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -17,12 +17,18 @@ open Entries + +let gen_constant modules constant = lazy (gen_constant_in_modules "SMT" modules constant) + + + (* Int63 *) let int63_modules = [["Coq";"Numbers";"Cyclic";"Int63";"Int63Native"]] let mkInt : int -> Term.constr = fun i -> Term.mkInt (Uint63.of_int i) +let cint = gen_constant Structures.int63_modules "int" (* PArray *) let parray_modules = [["Coq";"Array";"PArray"]] |