aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorAttila Gáspár2020-06-06 15:29:46 +0200
committerAttila Gáspár2020-06-06 15:59:57 +0200
commitc3dc9c558be3d3fe532d3bb3de747e920ce3e47b (patch)
tree3ec98547419957596dbe5cf72b73ca7393da0ff7 /test-suite
parent9c26e583668827bff5159e7671c406ace8b2f3ae (diff)
Fix #12442: Confusing error message when the intro pattern of "apply in" fails
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/output/bug12442.out6
-rw-r--r--test-suite/output/bug12442.v10
2 files changed, 16 insertions, 0 deletions
diff --git a/test-suite/output/bug12442.out b/test-suite/output/bug12442.out
new file mode 100644
index 0000000000..644ef6cd7c
--- /dev/null
+++ b/test-suite/output/bug12442.out
@@ -0,0 +1,6 @@
+The command has indeed failed with message:
+No product even after head-reduction.
+The command has indeed failed with message:
+Not an inductive product.
+The command has indeed failed with message:
+Not an inductive product.
diff --git a/test-suite/output/bug12442.v b/test-suite/output/bug12442.v
new file mode 100644
index 0000000000..481989a4e9
--- /dev/null
+++ b/test-suite/output/bug12442.v
@@ -0,0 +1,10 @@
+Parameter A B : Prop.
+Axiom P : inhabited (A -> B).
+
+Goal A -> True.
+Proof.
+ Fail intros ?%P ?.
+ Fail intros []%P.
+ intro a.
+ Fail apply P in a as [].
+Abort.