diff options
Diffstat (limited to 'test-suite/bugs/closed/shouldsucceed/1925.v')
-rw-r--r-- | test-suite/bugs/closed/shouldsucceed/1925.v | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/1925.v b/test-suite/bugs/closed/shouldsucceed/1925.v deleted file mode 100644 index 4caee1c3..00000000 --- a/test-suite/bugs/closed/shouldsucceed/1925.v +++ /dev/null @@ -1,22 +0,0 @@ -(* Check that the analysis of projectable rel's in an evar instance is up to - aliases *) - -Require Import List. - -Definition compose (A B C : Type) (g : B -> C) (f : A -> B) : A -> C := - fun x : A => g(f x). - -Definition map_fuse' : - forall (A B C : Type) (g : B -> C) (f : A -> B) (xs : list A), - (map g (map f xs)) = map (compose _ _ _ g f) xs - := - fun A B C g f => - (fix loop (ys : list A) {struct ys} := - match ys as ys return (map g (map f ys)) = map (compose _ _ _ g f) ys - with - | nil => refl_equal nil - | x :: xs => - match loop xs in eq _ a return eq _ ((g (f x)) :: a) with - | refl_equal => refl_equal (map g (map f (x :: xs))) - end - end). |