diff options
author | QGarchery <QGarchery@users.noreply.github.com> | 2018-11-30 09:06:02 +0100 |
---|---|---|
committer | ckeller <ckeller@users.noreply.github.com> | 2018-11-30 09:06:02 +0100 |
commit | 3fdc107b26f475c8fe8b7052de826405b88c14b3 (patch) | |
tree | 9dadc6caa013e2ec83537669ce26ecd8562c594d | |
parent | dc28a36ee4b5f673e875b3435618d60d63cf8bea (diff) | |
download | smtcoq-3fdc107b26f475c8fe8b7052de826405b88c14b3.tar.gz smtcoq-3fdc107b26f475c8fe8b7052de826405b88c14b3.zip |
forall declaration can now begin with a negation (#23)
Solves issue #21
-rw-r--r-- | src/verit/veritParser.mly | 2 | ||||
-rw-r--r-- | src/verit/veritSyntax.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/verit/veritParser.mly b/src/verit/veritParser.mly index 4ea6cd6..3c675ee 100644 --- a/src/verit/veritParser.mly +++ b/src/verit/veritParser.mly @@ -182,7 +182,7 @@ var_decl_list: ; forall_decl: - | FORALL LPAR var_decl_list RPAR name_term { clear_qvar (); false, Form (Fapp (Fforall $3, [|lit_of_atom_form_lit rf $5|])) } + | FORALL LPAR var_decl_list RPAR blit { clear_qvar (); false, Form (Fapp (Fforall $3, [|lit_of_atom_form_lit rf $5|])) } ; term: /* returns a bool * (SmtAtom.Form.pform or SmtAtom.hatom), the boolean indicates if we should declare the term or not */ diff --git a/src/verit/veritSyntax.ml b/src/verit/veritSyntax.ml index 5d79016..a45fb63 100644 --- a/src/verit/veritSyntax.ml +++ b/src/verit/veritSyntax.ml @@ -251,7 +251,7 @@ let rec mk_clause (id,typ,value,ids_params) = | _ -> failwith "unexpected form of tmp_qnt_tidy" end | Fins -> begin match value, ids_params with - | [inst], [ref_th] when Form.is_pos inst -> + | [inst], [ref_th] -> let cl_th = get_clause ref_th in Other (Forall_inst (repr cl_th, inst)) | _ -> failwith "unexpected form of forall_inst" end |