diff options
Diffstat (limited to 'src')
| -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 |