From 3fdc107b26f475c8fe8b7052de826405b88c14b3 Mon Sep 17 00:00:00 2001 From: QGarchery Date: Fri, 30 Nov 2018 09:06:02 +0100 Subject: forall declaration can now begin with a negation (#23) Solves issue #21 --- src/verit/veritParser.mly | 2 +- src/verit/veritSyntax.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit