Skip to content
Snippets Groups Projects
Commit 203a4f58 authored by Max New's avatar Max New
Browse files

one easy manual case of normalization proof

parent 8a2fb787
No related branches found
No related tags found
No related merge requests found
...@@ -218,7 +218,7 @@ unVNfm-subst {Γ = Γ} (lda {S = S}{R = R} M) γ = ...@@ -218,7 +218,7 @@ unVNfm-subst {Γ = Γ} (lda {S = S}{R = R} M) γ =
cong Syntax.IntensionalTerms.lda ((unCNfm-subst M (↑snf γ)) ∙ cong (unCNfm M [_]c) (cong (_,s var) (unSNfm-wk γ))) cong Syntax.IntensionalTerms.lda ((unCNfm-subst M (↑snf γ)) ∙ cong (unCNfm M [_]c) (cong (_,s var) (unSNfm-wk γ)))
-- Unfortunately the solver can't prove this as written because it wants to pattern match on M -- Unfortunately the solver can't prove this as written because it wants to pattern match on M
-- We would need to add some support for uninterpreted function symbols in the solver to get this. -- We would need to add some support for uninterpreted function symbols in the solver to get this.
{!!} sym (lda-nat _ _)
unVNfm-subst zro γ = Nbe.by-vsimpl refl unVNfm-subst zro γ = Nbe.by-vsimpl refl
unVNfm-subst (suc V) γ = cong (suc [_]v) (cong (!s ,s_) (unVNfm-subst V γ)) unVNfm-subst (suc V) γ = cong (suc [_]v) (cong (!s ,s_) (unVNfm-subst V γ))
∙ Nbe.by-vsimpl refl ∙ Nbe.by-vsimpl refl
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment