From 754775e39b5fa0342a1f4a46cbce0fc98d569d9d Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 22 Jul 2015 17:26:49 +0200
Subject: Extraction: fix primitive projection extraction.

Use expand projection to come back to the projection-as-constant encoding, dealing with parameters correctly.
---
 test-suite/success/primitiveproj.v | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/success/primitiveproj.v b/test-suite/success/primitiveproj.v
index 068f8ac3cc..125615c535 100644
--- a/test-suite/success/primitiveproj.v
+++ b/test-suite/success/primitiveproj.v
@@ -188,3 +188,10 @@ Set Printing All.
 Check (@p' nat).
 Check p'.
 Unset Printing All.
+
+Record wrap (A : Type) := { unwrap : A; unwrap2 : A }.
+
+Definition term (x : wrap nat) := x.(unwrap).
+Definition term' (x : wrap nat) := let f := (@unwrap2 nat) in f x.
+Recursive Extraction term term'.
+(*Unset Printing Primitive Projection Parameters.*)
\ No newline at end of file
-- 
cgit v1.2.3


From 74d347365d4f6425d056cc8df49bb8f8e29ad098 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 22 Jul 2015 17:33:51 +0200
Subject: test-suite: add test for bug# 3743.

---
 test-suite/bugs/closed/3743.v | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test-suite/bugs/closed/3743.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/3743.v b/test-suite/bugs/closed/3743.v
new file mode 100644
index 0000000000..4dfb3380a8
--- /dev/null
+++ b/test-suite/bugs/closed/3743.v
@@ -0,0 +1,11 @@
+(* File reduced by coq-bug-finder from original input, then from 967 lines to 469 lines, then from 459 lines to 35 lines *)
+(* coqc version trunk (October 2014) compiled on Oct 11 2014 1:13:41 with OCaml 4.01.0
+   coqtop version cagnode16:/afs/csail.mit.edu/u/j/jgross/coq-trunk,trunk (d65496f09c4b68fa318783e53f9cd6d5c18e1eb7) *)
+Require Export Coq.Setoids.Setoid.
+
+Fail Add Parametric Relation A
+: A (@eq A)
+    transitivity proved by transitivity
+      as refine_rel.
+(* Toplevel input, characters 20-118:
+Anomaly: index to an anonymous variable. Please report. *)
\ No newline at end of file
-- 
cgit v1.2.3


From cb145fa37d463210832c437f013231c9f028e1aa Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 27 Jul 2015 13:58:05 +0200
Subject: Output test for bug #2169.

---
 test-suite/output/PrintModule.out |  4 ++++
 test-suite/output/PrintModule.v   | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+)
 create mode 100644 test-suite/output/PrintModule.out
 create mode 100644 test-suite/output/PrintModule.v

(limited to 'test-suite')

diff --git a/test-suite/output/PrintModule.out b/test-suite/output/PrintModule.out
new file mode 100644
index 0000000000..db464fd07e
--- /dev/null
+++ b/test-suite/output/PrintModule.out
@@ -0,0 +1,4 @@
+Module N : S with Definition T := nat := M
+
+Module N : S with Module T := K := M
+
diff --git a/test-suite/output/PrintModule.v b/test-suite/output/PrintModule.v
new file mode 100644
index 0000000000..999d9a9862
--- /dev/null
+++ b/test-suite/output/PrintModule.v
@@ -0,0 +1,34 @@
+Module FOO.
+
+Module M.
+ Definition T := nat.
+End M.
+
+Module Type S.
+ Parameter T : Set.
+End S.
+
+Module N : S with Definition T := nat := M.
+
+Print Module N.
+
+End FOO.
+
+Module BAR.
+
+Module K. End K.
+Module Type KS. End KS.
+
+Module M.
+ Module T := K.
+End M.
+
+Module Type S.
+ Declare Module T : KS.
+End S.
+
+Module N : S with Module T := K := M.
+
+Print Module N.
+
+End BAR.
-- 
cgit v1.2.3