From f46f4ecec94953930fca6bbbc9fdb83a7a1025fc Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 25 May 2016 15:24:22 +0200
Subject: Fixed bug #4622.

---
 test-suite/success/primitiveproj.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test-suite/success')

diff --git a/test-suite/success/primitiveproj.v b/test-suite/success/primitiveproj.v
index 473d37eb36..2fa7704941 100644
--- a/test-suite/success/primitiveproj.v
+++ b/test-suite/success/primitiveproj.v
@@ -47,9 +47,9 @@ Check _.(next) : option Y.
 Lemma eta_ind (y : Y) : y = Build_Y y.(next).
 Proof. Fail reflexivity. Abort.
 
-Record Fdef := { Fa : nat ; Fb := Fa; Fc : nat }.
+Inductive Fdef := { Fa : nat ; Fb := Fa; Fc : Fdef }.
 
-Scheme Fdef_rec := Induction for Fdef Sort Prop.
+Fail Scheme Fdef_rec := Induction for Fdef Sort Prop.
 
 (* 
   Rules for parsing and printing of primitive projections and their eta expansions.
-- 
cgit v1.2.3