From 33f0f6462446a90f89f1c4ef2e168d864f270648 Mon Sep 17 00:00:00 2001
From: Liang-Ting Chen <liang.ting.chen.tw@gmail.com>
Date: Wed, 20 May 2020 16:12:54 +0800
Subject: [PATCH] Fix cong-rename
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
M on the right hand side of ≡ should be M′
---
src/plfa/part2/Substitution.lagda.md | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/plfa/part2/Substitution.lagda.md b/src/plfa/part2/Substitution.lagda.md
index b8c5e361..536adb4a 100644
--- a/src/plfa/part2/Substitution.lagda.md
+++ b/src/plfa/part2/Substitution.lagda.md
@@ -349,7 +349,7 @@ cong-ext{Γ}{Δ}{ρ}{ρ′}{B} rr {A} = extensionality λ x → lemma {x}
cong-rename : ∀{Γ Δ}{ρ ρ′ : Rename Γ Δ}{B}{M M′ : Γ ⊢ B}
→ (∀{A} → ρ ≡ ρ′ {A}) → M ≡ M′
------------------------------
- → rename ρ M ≡ rename ρ′ M
+ → rename ρ M ≡ rename ρ′ M′
cong-rename {M = ` x} rr refl = cong `_ (cong-app rr x)
cong-rename {ρ = ρ} {ρ′ = ρ′} {M = ƛ N} rr refl =
cong ƛ_ (cong-rename {ρ = ext ρ}{ρ′ = ext ρ′}{M = N} (cong-ext rr) refl)