diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-15 18:36:56 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-02-15 18:36:56 +0100 |
| commit | 4a2db61b8f59a2871de4f4b69522193ff9440261 (patch) | |
| tree | aed51f7e320c57e665748dbae973929725f3cee7 /src/trace/smtForm.ml | |
| parent | 3e5897710dc45c1b0bede79d3d61f4211c5ccb0e (diff) | |
| parent | 23ac3ceceb92cdbc2026253c1bae388a2b9b6e18 (diff) | |
| download | smtcoq-4a2db61b8f59a2871de4f4b69522193ff9440261.tar.gz smtcoq-4a2db61b8f59a2871de4f4b69522193ff9440261.zip | |
Merge remote-tracking branch 'origin/coq-8.12' into coq-8.13
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 0a7d859..0a5f693 100644 --- a/src/trace/smtForm.ml +++ b/src/trace/smtForm.ml @@ -546,7 +546,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; - CoqInterface.mkArray (Lazy.force cint, cargs) + CoqTerms.mkArray (Lazy.force cint, cargs) let pf_to_coq = function | Fatom a -> mklApp cFatom [|mkInt (Atom.index a)|] @@ -586,7 +586,7 @@ module Make (Atom:ATOM) = let interp_tbl reify = let (i,t) = to_array reify (Lazy.force cFtrue) pf_to_coq in - (mkInt i, CoqInterface.mkArray (Lazy.force cform, t)) + (mkInt i, CoqTerms.mkArray (Lazy.force cform, t)) let nvars reify = reify.count (* Producing a Coq term corresponding to the interpretation of a formula *) |