diff --git a/theories/base_logic/lib/iprop.v b/theories/base_logic/lib/iprop.v
index 2ca017324e6062d4e5f380b4fc2be4665c1d30f9..85085273d93a85c808781b8de185ac8e327b041d 100644
--- a/theories/base_logic/lib/iprop.v
+++ b/theories/base_logic/lib/iprop.v
@@ -30,6 +30,7 @@ Structure gFunctor := GFunctor {
 }.
 Arguments GFunctor _ {_}.
 Existing Instance gFunctor_contractive.
+Add Printing Constructor gFunctor.
 
 (** The type [gFunctors] describes the parameters [Σ] of the Iris logic: lists
 of [gFunctor]s.
@@ -61,6 +62,7 @@ Module gFunctors.
 
   Definition app (Σ1 Σ2 : gFunctors) : gFunctors :=
     existT (projT1 Σ1 + projT1 Σ2) (fin_plus_inv _ (projT2 Σ1) (projT2 Σ2)).
+  Global Typeclasses Opaque singleton app.
 End gFunctors.
 
 Coercion gFunctors.singleton : gFunctor >-> gFunctors.