From aa5b93f6319b9cb2d17a1c9f61947233b4033484 Mon Sep 17 00:00:00 2001
From: Jacques-Henri Jourdan <jacques-henri.jourdan@normalesup.org>
Date: Wed, 28 Feb 2018 10:47:08 +0100
Subject: [PATCH] Fix MakeAffinely. Change names for instances: use
 known_make_xxx instead of go_make_xxx.

---
 theories/proofmode/classes.v | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/theories/proofmode/classes.v b/theories/proofmode/classes.v
index acef2f557..3ee427127 100644
--- a/theories/proofmode/classes.v
+++ b/theories/proofmode/classes.v
@@ -403,46 +403,51 @@ Class MakeEmbed `{BiEmbedding PROP PROP'} (P : PROP) (Q : PROP') :=
 Arguments MakeEmbed {_ _ _ _} _%I _%I.
 Hint Mode MakeEmbed + + + + - - : typeclass_instances.
 Class KnownMakeEmbed `{BiEmbedding PROP PROP'} (P : PROP) (Q : PROP') :=
-  go_make_embed :> MakeEmbed P Q.
+  known_make_embed :> MakeEmbed P Q.
 Arguments KnownMakeEmbed {_ _ _ _} _%I _%I.
 Hint Mode KnownMakeEmbed + + + + ! - : typeclass_instances.
 
 Class MakeSep {PROP : bi} (P Q PQ : PROP) := make_sep : P ∗ Q ⊣⊢ PQ .
 Arguments MakeSep {_} _%I _%I _%I.
 Hint Mode MakeSep + - - - : typeclass_instances.
-Class KnownLMakeSep {PROP : bi} (P Q PQ : PROP) := gol_make_sep :> MakeSep P Q PQ.
+Class KnownLMakeSep {PROP : bi} (P Q PQ : PROP) :=
+  knownl_make_sep :> MakeSep P Q PQ.
 Arguments KnownLMakeSep {_} _%I _%I _%I.
 Hint Mode KnownLMakeSep + ! - - : typeclass_instances.
-Class KnownRMakeSep {PROP : bi} (P Q PQ : PROP) := gor_make_sep :> MakeSep P Q PQ.
+Class KnownRMakeSep {PROP : bi} (P Q PQ : PROP) :=
+  knownr_make_sep :> MakeSep P Q PQ.
 Arguments KnownRMakeSep {_} _%I _%I _%I.
 Hint Mode KnownRMakeSep + - ! - : typeclass_instances.
 
 Class MakeAnd {PROP : bi} (P Q PQ : PROP) :=  make_and_l : P ∧ Q ⊣⊢ PQ.
 Arguments MakeAnd {_} _%I _%I _%I.
 Hint Mode MakeAnd + - - - : typeclass_instances.
-Class KnownLMakeAnd {PROP : bi} (P Q PQ : PROP) := gol_make_and :> MakeAnd P Q PQ.
+Class KnownLMakeAnd {PROP : bi} (P Q PQ : PROP) :=
+  knownl_make_and :> MakeAnd P Q PQ.
 Arguments KnownLMakeAnd {_} _%I _%I _%I.
 Hint Mode KnownLMakeAnd + ! - - : typeclass_instances.
-Class KnownRMakeAnd {PROP : bi} (P Q PQ : PROP) := gor_make_and :> MakeAnd P Q PQ.
+Class KnownRMakeAnd {PROP : bi} (P Q PQ : PROP) :=
+  knownr_make_and :> MakeAnd P Q PQ.
 Arguments KnownRMakeAnd {_} _%I _%I _%I.
 Hint Mode KnownRMakeAnd + - ! - : typeclass_instances.
 
 Class MakeOr {PROP : bi} (P Q PQ : PROP) := make_or_l : P ∨ Q ⊣⊢ PQ.
 Arguments MakeOr {_} _%I _%I _%I.
 Hint Mode MakeOr + - - - : typeclass_instances.
-Class KnownLMakeOr {PROP : bi} (P Q PQ : PROP) := gol_make_or :> MakeOr P Q PQ.
+Class KnownLMakeOr {PROP : bi} (P Q PQ : PROP) :=
+  knownl_make_or :> MakeOr P Q PQ.
 Arguments KnownLMakeOr {_} _%I _%I _%I.
 Hint Mode KnownLMakeOr + ! - - : typeclass_instances.
-Class KnownRMakeOr {PROP : bi} (P Q PQ : PROP) := gor_make_or :> MakeOr P Q PQ.
+Class KnownRMakeOr {PROP : bi} (P Q PQ : PROP) := knownr_make_or :> MakeOr P Q PQ.
 Arguments KnownRMakeOr {_} _%I _%I _%I.
 Hint Mode KnownRMakeOr + - ! - : typeclass_instances.
 
 Class MakeAffinely {PROP : bi} (P Q : PROP) :=
-  make_affinely :> bi_affinely P ⊣⊢ Q.
+  make_affinely : bi_affinely P ⊣⊢ Q.
 Arguments MakeAffinely {_} _%I _%I.
 Hint Mode MakeAffinely + - - : typeclass_instances.
 Class KnownMakeAffinely {PROP : bi} (P Q : PROP) :=
-  go_make_affinely : MakeAffinely P Q.
+  known_make_affinely :> MakeAffinely P Q.
 Arguments KnownMakeAffinely {_} _%I _%I.
 Hint Mode KnownMakeAffinely + ! - : typeclass_instances.
 
@@ -451,7 +456,7 @@ Class MakeAbsorbingly {PROP : bi} (P Q : PROP) :=
 Arguments MakeAbsorbingly {_} _%I _%I.
 Hint Mode MakeAbsorbingly + - - : typeclass_instances.
 Class KnownMakeAbsorbingly {PROP : bi} (P Q : PROP) :=
-  go_make_absorbingly :> MakeAbsorbingly P Q.
+  known_make_absorbingly :> MakeAbsorbingly P Q.
 Arguments KnownMakeAbsorbingly {_} _%I _%I.
 Hint Mode KnownMakeAbsorbingly + ! - : typeclass_instances.
 
@@ -460,7 +465,7 @@ Class MakePersistently {PROP : bi} (P Q : PROP) :=
 Arguments MakePersistently {_} _%I _%I.
 Hint Mode MakePersistently + - - : typeclass_instances.
 Class KnownMakePersistently {PROP : bi} (P Q : PROP) :=
-  go_make_persistently :> MakePersistently P Q.
+  known_make_persistently :> MakePersistently P Q.
 Arguments KnownMakePersistently {_} _%I _%I.
 Hint Mode KnownMakePersistently + ! - : typeclass_instances.
 
@@ -469,7 +474,7 @@ Class MakeLaterN {PROP : sbi} (n : nat) (P lP : PROP) :=
 Arguments MakeLaterN {_} _%nat _%I _%I.
 Hint Mode MakeLaterN + + - - : typeclass_instances.
 Class KnownMakeLaterN {PROP : sbi} (n : nat) (P lP : PROP) :=
-  go_make_laterN :> MakeLaterN n P lP.
+  known_make_laterN :> MakeLaterN n P lP.
 Arguments KnownMakeLaterN {_} _%nat _%I _%I.
 Hint Mode KnownMakeLaterN + + ! - : typeclass_instances.
 
@@ -478,7 +483,7 @@ Class MakeExcept0 {PROP : sbi} (P Q : PROP) :=
 Arguments MakeExcept0 {_} _%I _%I.
 Hint Mode MakeExcept0 + - - : typeclass_instances.
 Class KnownMakeExcept0 {PROP : sbi} (P Q : PROP) :=
-  go_make_except_0 :> MakeExcept0 P Q.
+  known_make_except_0 :> MakeExcept0 P Q.
 Arguments KnownMakeExcept0 {_} _%I _%I.
 Hint Mode KnownMakeExcept0 + ! - : typeclass_instances.
 
-- 
GitLab