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 /src/verit/veritSyntax.ml | |
| parent | dc28a36ee4b5f673e875b3435618d60d63cf8bea (diff) | |
| download | smtcoq-3fdc107b26f475c8fe8b7052de826405b88c14b3.tar.gz smtcoq-3fdc107b26f475c8fe8b7052de826405b88c14b3.zip | |
forall declaration can now begin with a negation (#23)
Solves issue #21
Diffstat (limited to 'src/verit/veritSyntax.ml')
| -rw-r--r-- | src/verit/veritSyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |