From f1c066e03c1ff006a1c4368eda33e06594e718e3 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 14 Aug 2002 18:38:46 +0000
Subject: Test affichage optimal des coercions

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2967 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/output/Coercions.out | 4 ++++
 test-suite/output/Coercions.v   | 9 +++++++++
 2 files changed, 13 insertions(+)
 create mode 100644 test-suite/output/Coercions.out
 create mode 100644 test-suite/output/Coercions.v

diff --git a/test-suite/output/Coercions.out b/test-suite/output/Coercions.out
new file mode 100644
index 0000000000..63e042d8b2
--- /dev/null
+++ b/test-suite/output/Coercions.out
@@ -0,0 +1,4 @@
+(P x)
+     : Prop
+(R x x)
+     : Prop
diff --git a/test-suite/output/Coercions.v b/test-suite/output/Coercions.v
new file mode 100644
index 0000000000..61b69038f3
--- /dev/null
+++ b/test-suite/output/Coercions.v
@@ -0,0 +1,9 @@
+(* Submitted by Randy Pollack *)
+
+Record pred [S:Set]: Type := { sp_pred :> S -> Prop }.
+Record rel [S:Set]: Type := { sr_rel :> S -> S -> Prop }.
+
+Section testSection.
+Variables S: Set; P: (pred S); R: (rel S); x:S.
+Check (P x).
+Check (R x x).
-- 
cgit v1.2.3