diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-28 20:24:36 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-28 20:24:36 +0200 |
| commit | 64517cd829de743338ee3df7e94ecd262dc51505 (patch) | |
| tree | 9cfb60aa21363241c0cab0e138edd16596e15a58 /unit-tests | |
| parent | 084feb7d0c0ee7d2156d7508979682e3bf14fabe (diff) | |
| parent | d99b3aa7027a6d05d238f387fa2a629b91690ea9 (diff) | |
| download | smtcoq-64517cd829de743338ee3df7e94ecd262dc51505.tar.gz smtcoq-64517cd829de743338ee3df7e94ecd262dc51505.zip | |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
Diffstat (limited to 'unit-tests')
| -rw-r--r-- | unit-tests/Tests_verit_tactics.v | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/unit-tests/Tests_verit_tactics.v b/unit-tests/Tests_verit_tactics.v index d1c57f4..7701753 100644 --- a/unit-tests/Tests_verit_tactics.v +++ b/unit-tests/Tests_verit_tactics.v @@ -1249,3 +1249,17 @@ Section SearchApp. search x (l1 ++ l2 ++ l3) = search x (l3 ++ l2 ++ l1). Proof. verit. Qed. End SearchApp. + + +Section UnknowUnderForall. + Variable H5 : forall H : Z, Some H = None -> False. + Variable H10 : @hd_error Z nil = None. + Variable H6 : forall H : list (list Z), + hd_error H = match H with + | nil => None + | x :: _ => Some x + end. + + Goal forall (l : list Z) (x : Z), hd_error l = Some x -> l <> nil. + Proof. verit. Qed. +End UnknowUnderForall. |