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) γ =
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
-- 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 (suc V) γ = cong (suc [_]v) (cong (!s ,s_) (unVNfm-subst V γ))
∙ 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