diff options
| author | Chantal Keller <Chantal.Keller@inria.fr> | 2015-01-13 17:11:29 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@inria.fr> | 2015-01-13 17:11:29 +0100 |
| commit | 7072c4591668d2c21211a744d3719f6b42d1e7b9 (patch) | |
| tree | 800520e1e414e10b29804a998c63764c18f2c1cd /src/trace/smtForm.ml | |
| parent | 469a88043ad000403cff5122e27770c130ef77e4 (diff) | |
| download | smtcoq-7072c4591668d2c21211a744d3719f6b42d1e7b9.tar.gz smtcoq-7072c4591668d2c21211a744d3719f6b42d1e7b9.zip | |
Identify ML functions that depend on native-coq
Diffstat (limited to 'src/trace/smtForm.ml')
| -rw-r--r-- | src/trace/smtForm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/trace/smtForm.ml b/src/trace/smtForm.ml index 6075b3f..c7856f3 100644 --- a/src/trace/smtForm.ml +++ b/src/trace/smtForm.ml @@ -413,7 +413,7 @@ module Make (Atom:ATOM) = let args_to_coq args = let cargs = Array.make (Array.length args + 1) (mkInt 0) in Array.iteri (fun i hf -> cargs.(i) <- to_coq hf) args; - Term.mkArray (Lazy.force cint, cargs) + Structures.mkArray (Lazy.force cint, cargs) let pf_to_coq = function | Fatom a -> mklApp cFatom [|mkInt (Atom.index a)|] @@ -449,7 +449,7 @@ module Make (Atom:ATOM) = let interp_tbl reify = let (i,t) = to_array reify (Lazy.force cFtrue) pf_to_coq in - (mkInt i, Term.mkArray (Lazy.force cform, t)) + (mkInt i, Structures.mkArray (Lazy.force cform, t)) let nvars reify = reify.count (** Producing a Coq term corresponding to the interpretation of a formula *) |