michael/csci8980-f21
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minor edits

Browse source
This commit is contained in:
Jeremy Siek 2019-05-09 08:40:32 +02:00
parent 5add203818
commit 89b647b09d
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
extra/extra/Substitution.lagda
View file

@ -8,7 +8,6 @@ module extra.Substitution where
open import plfa.Untyped open import plfa.Untyped
using (Type; Context; _⊢_; ★; _∋_; ∅; _,_; Z; S_; `_; ƛ_; _·_; rename; subst; using (Type; Context; _⊢_; ★; _∋_; ∅; _,_; Z; S_; `_; ƛ_; _·_; rename; subst;
ext; exts; _[_]; subst-zero) ext; exts; _[_]; subst-zero)
renaming (_∎ to _[])
open import plfa.Denotational using (Rename) open import plfa.Denotational using (Rename)
open import plfa.Soundness using (Subst) open import plfa.Soundness using (Subst)
@ -410,7 +409,8 @@ rename-subst-commute {Γ}{Δ}{N}{M}{ρ} =
subst (cons (subst (ren ρ) M) subst (cons (subst (ren ρ) M)
(seq (seq (ren ρ) (ren S_)) (cons (subst (ren ρ) M) ids))) N (seq (seq (ren ρ) (ren S_)) (cons (subst (ren ρ) M) ids))) N
≡⟨ subst-equal{M = N} (λ{A}{x} → cons-congR{x = x} ≡⟨ subst-equal{M = N} (λ{A}{x} → cons-congR{x = x}
(λ{x} → seq-assoc{σ = ren ρ}{τ = ren S_}{θ = (cons (subst (ren ρ) M) ids)}{x = x})) ⟩ (λ{x} → seq-assoc {σ = ren ρ} {τ = ren S_}
{θ = (cons (subst (ren ρ) M) ids)} {x = x})) ⟩
subst (cons (subst (ren ρ) M) subst (cons (subst (ren ρ) M)
(seq (ren ρ) (seq (ren S_) (cons (subst (ren ρ) M) ids)))) N (seq (ren ρ) (seq (ren S_) (cons (subst (ren ρ) M) ids)))) N
≡⟨ (subst-equal{M = N}λ{A}{x} → cons-congR{x = x} ≡⟨ (subst-equal{M = N}λ{A}{x} → cons-congR{x = x}