From ebddbb7fa7c0a6891be35c04a570f837c7bd2c0c Mon Sep 17 00:00:00 2001
From: Robbert Krebbers <mail@robbertkrebbers.nl>
Date: Sat, 13 May 2017 10:49:11 +0200
Subject: [PATCH] Bump Iris.

---
 opam.pins                  | 2 +-
 theories/typing/function.v | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/opam.pins b/opam.pins
index 982bbc18..614a4d53 100644
--- a/opam.pins
+++ b/opam.pins
@@ -1 +1 @@
-coq-iris https://gitlab.mpi-sws.org/FP/iris-coq 7127e55309477c4a1db2cd43d58f65efa3431171
+coq-iris https://gitlab.mpi-sws.org/FP/iris-coq 646bfc85e7ea6313e62feecf4ebcbcd76a186e71
diff --git a/theories/typing/function.v b/theories/typing/function.v
index 29f20d78..403ddcff 100644
--- a/theories/typing/function.v
+++ b/theories/typing/function.v
@@ -274,7 +274,7 @@ Section typing.
       { iApply (bor_fracture with "LFT"); first done. by rewrite Qp_mult_1_r. }
       iApply ("Hf" with "LFT [] Htl [Htk] [Hk HκsI HL]").
       + iApply "HE'". iIntros "{$# Hf Hinh HE' LFT HE %}".
-        iInduction κs as [|κ κs] "IH" forall "Hκs"=> //=. iSplitL.
+        iInduction κs as [|κ κs] "IH"=> //=. iSplitL.
         { iApply lft_incl_trans; first done. iApply lft_intersect_incl_l. }
         iApply "IH". iAlways. iApply lft_incl_trans; first done. iApply lft_intersect_incl_r.
       + iSplitL; last done. iExists ϝ. iSplit; first by rewrite /= left_id.
-- 
GitLab