diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2020-07-06 12:40:48 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2020-07-06 12:40:48 +0200 |
commit | 52621f58edcabc36e7d1cd10d9b4da8be1a08649 (patch) | |
tree | de5831e7b1b0fb79fe459a819bbe2590e14a1682 /src/zchaff/zchaff.ml | |
parent | ea73755e6e1b7efea8db79b9fc0cf456ed5c640f (diff) | |
parent | d7a33ad9b479317701eba7c787744599de134f78 (diff) | |
download | smtcoq-52621f58edcabc36e7d1cd10d9b4da8be1a08649.tar.gz smtcoq-52621f58edcabc36e7d1cd10d9b4da8be1a08649.zip |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.10
Diffstat (limited to 'src/zchaff/zchaff.ml')
-rw-r--r-- | src/zchaff/zchaff.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/zchaff/zchaff.ml b/src/zchaff/zchaff.ml index 71b28a8..225a90b 100644 --- a/src/zchaff/zchaff.ml +++ b/src/zchaff/zchaff.ml @@ -222,7 +222,7 @@ let theorems interp name fdimacs ftrace = mklApp cCertif [|mkInt (max_id + 1);tres;mkInt (get_pos confl)|] in let theorem_concl = mklApp cnot [|mklApp cis_true [|interp d first last|] |] in - let vtype = Term.mkArrow (Lazy.force cint) (Lazy.force cbool) in + let vtype = Structures.mkArrow (Lazy.force cint) (Lazy.force cbool) in let theorem_type = Structures.mkProd (Structures.mkName "v", vtype, theorem_concl) in let theorem_proof_cast = |