diff options
| author | Hugo Herbelin | 2014-11-08 10:45:34 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-11-08 16:12:03 +0100 |
| commit | c8721369d1d3e6572138fa7aab65e54f68459db4 (patch) | |
| tree | 4e56f6f3f2d5a64a02043dbf796eaec275ac8865 /test-suite/bugs/opened | |
| parent | 7e4241a6aec516b8b28bc0c6f2125c5960b909e7 (diff) | |
Test fixed by PMP's commits from Oct 21.
Diffstat (limited to 'test-suite/bugs/opened')
| -rw-r--r-- | test-suite/bugs/opened/3258.v | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/test-suite/bugs/opened/3258.v b/test-suite/bugs/opened/3258.v deleted file mode 100644 index 69a543044b..0000000000 --- a/test-suite/bugs/opened/3258.v +++ /dev/null @@ -1,35 +0,0 @@ -Require Import Coq.Classes.Morphisms Coq.Classes.RelationClasses Coq.Program.Program Coq.Setoids.Setoid. - -Global Set Implicit Arguments. - -Hint Extern 0 => apply reflexivity : typeclass_instances. - -Inductive Comp : Type -> Type := -| Pick : forall A, (A -> Prop) -> Comp A. - -Axiom computes_to : forall A, Comp A -> A -> Prop. - -Axiom refine : forall {A} (old : Comp A) (new : Comp A), Prop. - -Global Instance refine_PreOrder A : PreOrder (@refine A). -Admitted. - -Add Parametric Morphism A -: (@Pick A) - with signature - (pointwise_relation _ (flip impl)) - ==> (@refine A) - as refine_flip_impl_Pick. - admit. -Defined. -Definition remove_forall_eq' A x B (P : A -> B -> Prop) : pointwise_relation _ impl (P x) (fun z => forall y : A, y = x -> P y z). - admit. -Defined. -Goal forall A B (x : A) (P : _ -> _ -> Prop), - refine (Pick (fun n : B => forall y, y = x -> P y n)) - (Pick (fun n : B => P x n)). -Proof. - intros. - setoid_rewrite (@remove_forall_eq' _ _ _ _). - Undo. - Fail setoid_rewrite (@remove_forall_eq' _ _ _). |
