diff --git a/coq-actris.opam b/coq-actris.opam
index 56c63871177c2ddab1e000eba64c8eb9eec5e70a..abd0c71cf5881bd4a05c686c68635618116f35cf 100644
--- a/coq-actris.opam
+++ b/coq-actris.opam
@@ -6,7 +6,7 @@ bug-reports: "https://gitlab.mpi-sws.org/iris/actris/issues"
 dev-repo: "git+https://gitlab.mpi-sws.org/iris/actris.git"
 
 depends: [
-  "coq-iris-heap-lang" { (= "dev.2021-12-09.1.f52f9f6a") | (= "dev") }
+  "coq-iris-heap-lang" { (= "dev.2022-04-12.0.a3bed7ea") | (= "dev") }
 ]
 
 build: [make "-j%{jobs}%"]
diff --git a/theories/channel/proto.v b/theories/channel/proto.v
index 89eecadc222bafd855ff6b769738b6fc903866e0..e24fb86b24e9f3d65c5c0f60449a05bbe8af2002 100644
--- a/theories/channel/proto.v
+++ b/theories/channel/proto.v
@@ -878,16 +878,19 @@ Section proto.
     iApply iProto_le_exist_elim_r; iIntros (x).
     iApply "IH". iIntros (xs). iApply "H".
   Qed.
+
   Lemma iProto_le_texist_intro_l {TT : tele} (m : TT → iMsg Σ V) x :
     ⊢ (<!.. x> m x) ⊑ (<!> m x).
   Proof.
-    induction x as [|T TT x xs IH]; simpl; [iApply iProto_le_refl|].
+    induction x as [|T TT x xs IH] using tele_arg_ind; simpl.
+    { iApply iProto_le_refl. }
     iApply iProto_le_trans; [by iApply iProto_le_exist_intro_l|]. iApply IH.
   Qed.
   Lemma iProto_le_texist_intro_r {TT : tele} (m : TT → iMsg Σ V) x :
     ⊢ (<?> m x) ⊑ (<?.. x> m x).
   Proof.
-    induction x as [|T TT x xs IH]; simpl; [iApply iProto_le_refl|].
+    induction x as [|T TT x xs IH] using tele_arg_ind; simpl.
+    { iApply iProto_le_refl. }
     iApply iProto_le_trans; [|by iApply iProto_le_exist_intro_r]. iApply IH.
   Qed.