aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs/opened
diff options
context:
space:
mode:
authorHugo Herbelin2014-11-08 10:45:34 +0100
committerHugo Herbelin2014-11-08 16:12:03 +0100
commitc8721369d1d3e6572138fa7aab65e54f68459db4 (patch)
tree4e56f6f3f2d5a64a02043dbf796eaec275ac8865 /test-suite/bugs/opened
parent7e4241a6aec516b8b28bc0c6f2125c5960b909e7 (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.v35
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' _ _ _).