minze/univTypes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make β-λ more generic (Argument can now be any type T instead of `Setn L)

Browse Source
This commit is contained in:
JKF
2026-04-25 22:24:28 +02:00
parent e8ee5b200c
commit 201fe7942b
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SubjectReduction/Inversion.agda
+5 -5
View File
@@ -41,9 +41,9 @@ invert-≈-∀ (mk-≈ x ∀₁↪*x ∀₂↪*x) with ↪*-∀-shape ∀₁↪*
invert-⊢λ' : ∀ {n} {Γ : Context n} {e : Term (suc n)} {t : Term n} →
Γ ⊢ `λ e ⦂ t →
∃[ t₁ ] ∃[ t₂ ] ∃[ l ]
∃[ t₁ ] ∃[ t₂ ] ∃[ T₂ ]
t ≈ (∀[x⦂ t₁ ] t₂) ×
Γ ⊢ t₁ ⦂ (`Setn l) ×
Γ ⊢ t₁ ⦂ T₂ ×
Γ , t₁ ⊢ e ⦂ t₂
invert-⊢λ' (⊢-λ ⊢λ ⊢e) = ⟨ _ , ⟨ _ , ⟨ _ , ⟨ ≈-refl , ⟨ ⊢λ , ⊢e ⟩ ⟩ ⟩ ⟩ ⟩
invert-⊢λ' (⊢-≈ t₁≈t ⊢λ⦂t₁) with invert-⊢λ' ⊢λ⦂t₁
@@ -52,12 +52,12 @@ invert-⊢λ' (⊢-≈ t₁≈t ⊢λ⦂t₁) with invert-⊢λ' ⊢λ⦂t₁
invert-⊢λ : ∀ {n} {Γ : Context n} {e : Term (suc n)} {t₁ : Term n} {t₂ : Term (suc n)}
→ Γ ⊢ `λ e ⦂ ∀[x⦂ t₁ ] t₂
→ ∃[ t₁' ] ∃[ t₂' ] ∃[ l ]
→ ∃[ t₁' ] ∃[ t₂' ] ∃[ T₁ ]
t₁ ≈ t₁' ×
t₂ ≈ t₂' ×
Γ ⊢ t₁' ⦂ (`Setn l) ×
Γ ⊢ t₁' ⦂ T₁ ×
Γ , t₁' ⊢ e ⦂ t₂'
invert-⊢λ (⊢-λ ⊢λ ⊢λ₁) = ⟨ _ , ⟨ _ , ⟨ _ , ⟨ mk-≈ _ ↪*-refl ↪*-refl , ⟨ mk-≈ _ ↪*-refl ↪*-refl , ⟨ ⊢λ , ⊢λ₁ ⟩ ⟩ ⟩ ⟩ ⟩ ⟩
invert-⊢λ (⊢-λ ⊢λ ⊢λ₁) = ⟨ _ , ⟨ _ , ⟨ _ , ⟨ ≈-refl , ⟨ ≈-refl , ⟨ ⊢λ , ⊢λ₁ ⟩ ⟩ ⟩ ⟩ ⟩ ⟩
invert-⊢λ (⊢-≈ t≈∀ ⊢λ) with invert-⊢λ' ⊢λ
... | ⟨ X , ⟨ E , ⟨ L , ⟨ t≈∀' , ⟨ X⦂Set , Γ,X⊢e⦂E ⟩ ⟩ ⟩ ⟩ ⟩ with invert-≈-∀ (≈-trans (≈-sym t≈∀) t≈∀')
... | ⟨ ≈₁ , ≈₂ ⟩