diff --git a/theories/bi/embedding.v b/theories/bi/embedding.v index 2ba22584a0ab76f72ee77e1929c99db5cbb8c8e4..67a79896456469468a7404c48d5d7777ab425bcd 100644 --- a/theories/bi/embedding.v +++ b/theories/bi/embedding.v @@ -38,7 +38,8 @@ Class SbiEmbed (PROP1 PROP2 : sbi) `{BiEmbed PROP1 PROP2} := { embed_later P : ⎡▷ P⎤ ⊣⊢ ▷ ⎡P⎤; embed_interal_inj (PROP' : sbi) (P Q : PROP1) : ⎡P⎤ ≡ ⎡Q⎤ ⊢ (P ≡ Q : PROP'); }. -Hint Mode SbiEmbed + + ! : typeclass_instances. +Hint Mode SbiEmbed ! - - : typeclass_instances. +Hint Mode SbiEmbed - ! - : typeclass_instances. Section embed_laws. Context `{BiEmbed PROP1 PROP2}. diff --git a/theories/bi/plainly.v b/theories/bi/plainly.v index 06fff510df79c80d1340fc7d52d23d2ebb68df29..a3c7d83fb29c0a825198a456711320e0683504b4 100644 --- a/theories/bi/plainly.v +++ b/theories/bi/plainly.v @@ -48,7 +48,7 @@ Class BiPlainlyExist `{!BiPlainly PROP} := Arguments BiPlainlyExist : clear implicits. Arguments BiPlainlyExist _ {_}. Arguments plainly_exist_1 _ {_ _} _. -Hint Mode BiPlainlyExist + ! : typeclass_instances. +Hint Mode BiPlainlyExist ! - : typeclass_instances. Section plainly_laws. Context `{BiPlainly PROP}. diff --git a/theories/bi/updates.v b/theories/bi/updates.v index 2a5fff709be6d064aacd6f51074703610b3fc09f..40669d7517d369de6b5039cd57c3133bdfb767b7 100644 --- a/theories/bi/updates.v +++ b/theories/bi/updates.v @@ -87,11 +87,11 @@ Arguments bi_fupd_fupd : simpl never. Class BiBUpdFUpd (PROP : sbi) `{BiBUpd PROP, BiFUpd PROP} := bupd_fupd E (P : PROP) : (|==> P) ={E}=∗ P. -Hint Mode BiBUpdFUpd + ! ! : typeclass_instances. +Hint Mode BiBUpdFUpd ! - - : typeclass_instances. Class BiBUpdPlainly (PROP : sbi) `{!BiBUpd PROP, !BiPlainly PROP} := bupd_plainly (P : PROP) : (|==> ■P) -∗ P. -Hint Mode BiBUpdPlainly + ! ! : typeclass_instances. +Hint Mode BiBUpdPlainly ! - - : typeclass_instances. Class BiFUpdPlainly (PROP : sbi) `{!BiFUpd PROP, !BiPlainly PROP} := { fupd_plain' E1 E2 E2' (P Q : PROP) `{!Plain P} : @@ -100,7 +100,7 @@ Class BiFUpdPlainly (PROP : sbi) `{!BiFUpd PROP, !BiPlainly PROP} := { later_fupd_plain E (P : PROP) `{!Plain P} : (▷ |={E}=> P) ={E}=∗ ▷ ◇ P; }. -Hint Mode BiBUpdFUpd + ! ! : typeclass_instances. +Hint Mode BiBUpdFUpd ! - - : typeclass_instances. Section bupd_laws. Context `{BiBUpd PROP}.