From 3ef7797ef6fc605dfafb32523261fe1b023aeecb Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Fri, 28 Apr 2006 14:59:16 +0000 Subject: Imported Upstream version 8.0pl3+8.1alpha --- test-suite/success/Case8.v | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 test-suite/success/Case8.v (limited to 'test-suite/success/Case8.v') diff --git a/test-suite/success/Case8.v b/test-suite/success/Case8.v new file mode 100644 index 00000000..a6113ab9 --- /dev/null +++ b/test-suite/success/Case8.v @@ -0,0 +1,11 @@ +(* Check dependencies in the matching predicate (was failing in V8.0pl1) *) + +Inductive t : forall x : 0 = 0, x = x -> Prop := + c : forall x : 0 = 0, t x (refl_equal x). + +Definition a (x : t _ (refl_equal (refl_equal 0))) := + match x return match x with + | c y => Prop + end with + | c y => y = y + end. -- cgit v1.2.3