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/smtAtom.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/smtAtom.ml')
| -rw-r--r-- | src/trace/smtAtom.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/trace/smtAtom.ml b/src/trace/smtAtom.ml index 3164692..392ef2e 100644 --- a/src/trace/smtAtom.ml +++ b/src/trace/smtAtom.ml @@ -100,7 +100,7 @@ module Btype = | Tindex it -> t.(it.index) <- it.hval | _ -> () in Hashtbl.iter set reify.tbl; - Term.mkArray (Lazy.force ctyp_eqb, t) + Structures.mkArray (Lazy.force ctyp_eqb, t) let to_list reify = let set _ t acc = match t with @@ -291,7 +291,7 @@ module Op = let set _ v = t.(v.index) <- mk_Tval v.hval.tparams v.hval.tres v.hval.op_val in Hashtbl.iter set reify.tbl; - Term.mkArray (tval, t) + Structures.mkArray (tval, t) let to_list reify = let set _ op acc = @@ -651,7 +651,7 @@ module Atom = let interp_tbl reify = let t = to_array reify (Lazy.force dft_atom) a_to_coq in - Term.mkArray (Lazy.force catom, t) + Structures.mkArray (Lazy.force catom, t) (** Producing a Coq term corresponding to the interpretation of an atom *) |