From a4c7f8bd98be2a200489325ff7c5061cf80ab4f3 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 27 Dec 2016 16:53:30 +0100 Subject: Imported Upstream version 8.6 --- test-suite/success/programequality.v | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 test-suite/success/programequality.v (limited to 'test-suite/success/programequality.v') diff --git a/test-suite/success/programequality.v b/test-suite/success/programequality.v new file mode 100644 index 00000000..414c572f --- /dev/null +++ b/test-suite/success/programequality.v @@ -0,0 +1,13 @@ +Require Import Program. + +Axiom t : nat -> Set. + +Goal forall (x y : nat) (e : x = y) (e' : x = y) (P : t y -> x = y -> Type) + (a : t x), + P (eq_rect _ _ a _ e) e'. +Proof. + intros. + pi_eq_proofs. clear e. + destruct e'. simpl. + change (P a eq_refl). +Abort. \ No newline at end of file -- cgit v1.2.3