diff options
author | ckeller <ckeller@users.noreply.github.com> | 2019-02-14 20:09:40 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2019-02-14 20:09:40 +0100 |
commit | ec41af7ac01cef7c30785e6dd704381f31e7c2d3 (patch) | |
tree | 13d51483c50d7b5a668d90b8b67a8b99ef0fbe56 /src/trace/smtForm.ml | |
parent | ba22fad2fb46962eef5f30d976e9eaeb587023a0 (diff) | |
download | smtcoq-ec41af7ac01cef7c30785e6dd704381f31e7c2d3.tar.gz smtcoq-ec41af7ac01cef7c30785e6dd704381f31e7c2d3.zip |
V8.7 (#36)
Port SMTCoq to Coq-8.7
Diffstat (limited to 'src/trace/smtForm.ml')
-rw-r--r-- | src/trace/smtForm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/trace/smtForm.ml b/src/trace/smtForm.ml index 4138e7c..ad6a5a4 100644 --- a/src/trace/smtForm.ml +++ b/src/trace/smtForm.ml @@ -618,7 +618,7 @@ module Make (Atom:ATOM) = mklApp cifb (Array.map interp_form args) | Fnot2 n -> (let r = ref (interp_form args.(0)) in - for i = 1 to n do + for _ = 1 to n do r := mklApp cnegb [|!r|] done; !r) |