From e6383e516036a15bccdbc2b125019a40181c6028 Mon Sep 17 00:00:00 2001
From: Vincent Laporte
Date: Tue, 7 May 2019 08:07:28 +0000
Subject: [Record] Deforestation

---
 vernac/record.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/vernac/record.ml b/vernac/record.ml
index 74e5a03659..d246c161a0 100644
--- a/vernac/record.ml
+++ b/vernac/record.ml
@@ -699,8 +699,7 @@ let definition_structure udecl kind ~template cum poly finite records =
     let map impls = implpars @ Impargs.lift_implicits (succ (List.length params)) impls in
     let data = List.map (fun (arity, implfs, fields) -> (arity, List.map map implfs, fields)) data in
     let map (arity, implfs, fields) (is_coe, id, _, cfs, idbuild, _) =
-      let coers = List.map (fun (((coe, _), _), _) -> coe) cfs in
-      let coe = List.map (fun coe -> not (Option.is_empty coe)) coers in
+      let coe = List.map (fun (((coe, _), _), _) -> not (Option.is_empty coe)) cfs in
       id.CAst.v, idbuild, arity, implfs, fields, is_coe, coe
     in
     let data = List.map2 map data records in
-- 
cgit v1.2.3