diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-03-02 13:16:12 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-03-02 13:16:12 +0100 |
commit | e3ff85dccf62b497cd017d2b55e08e7f49ebd80f (patch) | |
tree | 8386e6f8989a8770062eb796ee4fd0be3fab082f /src/versions/native/structures.ml | |
parent | 5705e360d5948369639939c08ef9f77328fb8226 (diff) | |
download | smtcoq-e3ff85dccf62b497cd017d2b55e08e7f49ebd80f.tar.gz smtcoq-e3ff85dccf62b497cd017d2b55e08e7f49ebd80f.zip |
Removed old port to Coq 8.4
Diffstat (limited to 'src/versions/native/structures.ml')
-rw-r--r-- | src/versions/native/structures.ml | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml deleted file mode 100644 index 2c3a8d2..0000000 --- a/src/versions/native/structures.ml +++ /dev/null @@ -1,55 +0,0 @@ -(**************************************************************************) -(* *) -(* SMTCoq *) -(* Copyright (C) 2011 - 2015 *) -(* *) -(* Michaël Armand *) -(* Benjamin Grégoire *) -(* Chantal Keller *) -(* *) -(* Inria - École Polytechnique - MSR-Inria Joint Lab *) -(* *) -(* This file is distributed under the terms of the CeCILL-C licence *) -(* *) -(**************************************************************************) - - -open Entries -open Coqlib - - - -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 int63_modules "int" - -(* PArray *) -let parray_modules = [["Coq";"Array";"PArray"]] - -let max_array_size : int = - Parray.trunc_size (Uint63.of_int 4194303) -let mkArray : Term.types * Term.constr array -> Term.constr = - Term.mkArray - - -(* Differences between the two versions of Coq *) -let dummy_loc = Pp.dummy_loc - -let mkConst c = - { const_entry_body = c; - const_entry_type = None; - const_entry_secctx = None; - const_entry_opaque = false; - const_entry_inline_code = false} - -let glob_term_CbvVm = Glob_term.CbvVm None - -let error = Errors.error |