diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-02-23 18:02:59 +0100 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-02-23 18:02:59 +0100 |
| commit | dbf1adc5daaadf92bc3245648f30cf79bd010e86 (patch) | |
| tree | d4e54f6ace255a98adaebf22bf6c915cbb08a81b /src/verit/veritSyntax.ml | |
| parent | 68ca86514065cef3d5fc6ce54a86ef15452d8f0a (diff) | |
| parent | 240b76807340e59bb85b35e3ebbb807792459912 (diff) | |
| download | smtcoq-dbf1adc5daaadf92bc3245648f30cf79bd010e86.tar.gz smtcoq-dbf1adc5daaadf92bc3245648f30cf79bd010e86.zip | |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
Diffstat (limited to 'src/verit/veritSyntax.ml')
| -rw-r--r-- | src/verit/veritSyntax.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/verit/veritSyntax.ml b/src/verit/veritSyntax.ml index 862a628..8759a38 100644 --- a/src/verit/veritSyntax.ml +++ b/src/verit/veritSyntax.ml @@ -555,7 +555,7 @@ let init_index lsmt re_hash = List.iter (fun h -> Format.fprintf fmt "%a\n" (Form.to_smt ~debug:true) (re_hash h)) lsmt; Format.fprintf fmt "\n%a\n@." (Form.to_smt ~debug:true) re_hf; flush oc; close_out oc; - failwith "not found: log available" + failwith "Input not found: log available in /tmp/input_not_found.log" let qf_to_add lr = let is_forall l = match Form.pform l with @@ -570,8 +570,8 @@ let qf_to_add lr = let ra = Atom.create () let rf = Form.create () -let ra' = Atom.create () -let rf' = Form.create () +let ra_quant = Atom.create () +let rf_quant = Form.create () let hlets : (string, Form.atom_form_lit) Hashtbl.t = Hashtbl.create 17 @@ -586,6 +586,6 @@ let clear () = clear_solver (); Atom.clear ra; Form.clear rf; - Atom.clear ra'; - Form.clear rf'; + Atom.clear ra_quant; + Form.clear rf_quant; Hashtbl.clear hlets |