aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/opened/shouldnotfail/1416.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/bugs/opened/shouldnotfail/1416.v')
-rw-r--r--test-suite/bugs/opened/shouldnotfail/1416.v4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/bugs/opened/shouldnotfail/1416.v b/test-suite/bugs/opened/shouldnotfail/1416.v
index c6f4302d8..da67d9b04 100644
--- a/test-suite/bugs/opened/shouldnotfail/1416.v
+++ b/test-suite/bugs/opened/shouldnotfail/1416.v
@@ -4,12 +4,12 @@ Record Place (Env A: Type) : Type := {
read: Env -> A ;
write: Env -> A -> Env ;
write_read: forall (e:Env), (write e (read e))=e
-}.
+}.
Hint Rewrite -> write_read: placeeq.
Record sumPl (Env A B: Type) (vL:(Place Env A)) (vR:(Place Env B)) : Type :=
- {
+ {
mkEnv: A -> B -> Env ;
mkEnv2writeL: forall (e:Env) (x:A), (mkEnv x (read vR e))=(write vL e x)
}.