Add the top-level subject reduction theorem

This commit is contained in:
Yiyun Liu 2025-02-10 21:51:27 -05:00
parent c5de86339f
commit c1a8e9d2e1

View file

@ -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.