diff options
author | Chantal Keller <Chantal.Keller@inria.fr> | 2020-03-31 15:06:08 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@inria.fr> | 2020-03-31 15:06:08 +0200 |
commit | 4c8654c57666e27637ba2f60ee5c6455176c7a1d (patch) | |
tree | 192f58ba2aa699ba206f385bc6e1924e08efe7d7 /src/zchaff/zchaff.ml | |
parent | f227beb117105cf4372187112614ce4aec1c5d9b (diff) | |
download | smtcoq-4c8654c57666e27637ba2f60ee5c6455176c7a1d.tar.gz smtcoq-4c8654c57666e27637ba2f60ee5c6455176c7a1d.zip |
Port to coq-8.10 under progress
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 = |