Add the top-level subject reduction theorem
This commit is contained in:
parent
c5de86339f
commit
c1a8e9d2e1
1 changed files with 6 additions and 0 deletions
|
@ -174,3 +174,9 @@ Proof.
|
|||
apply : E_Conv; eauto.
|
||||
apply E_Bind'; eauto using E_Refl.
|
||||
Qed.
|
||||
|
||||
Theorem subject_reduction n Γ (a b A : PTm n) :
|
||||
Γ ⊢ a ∈ A ->
|
||||
RRed.R a b ->
|
||||
Γ ⊢ b ∈ A.
|
||||
Proof. hauto lq:on use:RRed_Eq, regularity. Qed.
|
||||
|
|
Loading…
Add table
Reference in a new issue