diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-28 20:17:16 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-28 20:17:16 +0200 |
commit | d99b3aa7027a6d05d238f387fa2a629b91690ea9 (patch) | |
tree | 2892ff5be52b7e0d6fe3e079bf5fcb302090edaf /unit-tests | |
parent | 34f32c6ac00a9c385baf65861d367e0e1006c1ab (diff) | |
download | smtcoq-d99b3aa7027a6d05d238f387fa2a629b91690ea9.tar.gz smtcoq-d99b3aa7027a6d05d238f387fa2a629b91690ea9.zip |
Solve a bug when reifying under a binder
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. |