From 1bc0b150857faad474b691b1cfb24e9a99f21395 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 7 Jul 2020 12:45:12 +0200
Subject: Fix erroneous implicits-in-term warning

Fix #12651
---
 vernac/comDefinition.ml | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'vernac')

diff --git a/vernac/comDefinition.ml b/vernac/comDefinition.ml
index b9ed4f838d..5ee847a17e 100644
--- a/vernac/comDefinition.ml
+++ b/vernac/comDefinition.ml
@@ -29,14 +29,17 @@ let warn_implicits_in_term =
 
 let check_imps ~impsty ~impsbody =
   let rec aux impsty impsbody =
-  match impsty, impsbody with
-  | a1 :: impsty, a2 :: impsbody ->
-    (match a1.CAst.v, a2.CAst.v with
-    | None , None -> aux impsty impsbody
-    | Some _ , Some _ -> aux impsty impsbody
-    | _, _ -> warn_implicits_in_term ?loc:a2.CAst.loc ())
-  | _ :: _, [] | [], _ :: _ -> (* Information only on one side *) ()
-  | [], [] -> () in
+    match impsty, impsbody with
+    | a1 :: impsty, a2 :: impsbody ->
+      let () = match a1.CAst.v, a2.CAst.v with
+        | None , None | Some _, None -> ()
+        | Some (_,b1) , Some (_,b2) ->
+          if not ((b1:bool) = b2) then warn_implicits_in_term ?loc:a2.CAst.loc ()
+        | None, Some _ -> warn_implicits_in_term ?loc:a2.CAst.loc ()
+      in
+      aux impsty impsbody
+    | _ :: _, [] | [], _ :: _ -> (* Information only on one side *) ()
+    | [], [] -> () in
   aux impsty impsbody
 
 let protect_pattern_in_binder bl c ctypopt =
-- 
cgit v1.2.3