use solve_inG tactic

theories/lang/adequacy.v

@@ -15,7 +15,7 @@ Definition heapΣ : gFunctors :=
     GFunctor (constRF (authR heapUR));
     GFunctor (constRF (authR heap_freeableUR))].
 Instance subG_heapPreG {Σ} : subG heapΣ Σ → heapPreG Σ.
-Proof. intros [? [?%subG_inG ?%subG_inG]%subG_inv]%subG_inv. split; apply _. Qed.
+Proof. solve_inG. Qed.
 
 Definition heap_adequacy Σ `{heapPreG Σ} e σ φ :
   (∀ `{heapG Σ}, {{ heap_ctx }} e {{ v, ⌜φ v⌝ }}) →

theories/lifetime/lifetime_sig.v

@@ -61,11 +61,7 @@ Definition lftΣ : gFunctors :=
      GFunctor (authR borUR); GFunctor (authR natUR); GFunctor (authR inhUR) ].
 Instance subG_stsΣ Σ :
   subG lftΣ Σ → lftPreG Σ.
-Proof.
-  intros [? [?%subG_inG [?%subG_inG [?%subG_inG [?%subG_inG
-             ?%subG_inG]%subG_inv]%subG_inv]%subG_inv]%subG_inv]%subG_inv.
-  split; first apply _; done.
-Qed.
+Proof. solve_inG. Qed.
 
 Module Type lifetime_sig.
   (** Definitions *)