diff options
| author | coqbot-app[bot] | 2020-11-16 10:12:29 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-16 10:12:29 +0000 |
| commit | 779d2b915a970cdfc87d3d1b69e10bab04094f33 (patch) | |
| tree | 22b32765989277eea06bc506c528e4dcfee007eb /test-suite | |
| parent | db3a056eafed89ed29a696fdd0a7a5789086bfa5 (diff) | |
| parent | 7b8ed629b2e05dc9a71ce1c62e075adeecae16f3 (diff) | |
Merge PR #13290: Grant #13278: computation of return predicate takes care of sort elimination constraints
Reviewed-by: gares
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/bug_13278.v | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_13278.v b/test-suite/bugs/closed/bug_13278.v new file mode 100644 index 0000000000..9831a4d205 --- /dev/null +++ b/test-suite/bugs/closed/bug_13278.v @@ -0,0 +1,15 @@ +Inductive even: nat -> Prop := +| evenB: even 0 +| evenS: forall n, even n -> even (S (S n)). + +Goal even 1 -> False. +Proof. + refine (fun a => match a with end). +Qed. + +Goal even 1 -> False. +Proof. + refine (fun a => match a in even n + return match n with 1 => False | _ => True end : Prop + with evenB => I | evenS _ _ => I end). +Qed. |