From a0cfa4f118023d35b767a999d5a2ac4b082857b4 Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Fri, 25 Jul 2008 15:12:53 +0200 Subject: Imported Upstream version 8.2~beta3+dfsg --- test-suite/bugs/closed/1787.v | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 test-suite/bugs/closed/1787.v (limited to 'test-suite/bugs/closed/1787.v') diff --git a/test-suite/bugs/closed/1787.v b/test-suite/bugs/closed/1787.v new file mode 100644 index 00000000..8e1024e6 --- /dev/null +++ b/test-suite/bugs/closed/1787.v @@ -0,0 +1,11 @@ +Parameter P : nat -> nat -> Prop. +Parameter Q : nat -> nat -> Prop. +Axiom A : forall x x' x'', P x x' -> Q x'' x' -> P x x''. + +Goal (P 1 3) -> (Q 1 3) -> (P 1 1). +intros H H'. +refine ((fun H1 : P 1 _ => let H2 := (_:Q 1 _) in A _ _ _ H1 H2) _). +clear. +Admitted. + + -- cgit v1.2.3