Properties: visual alignment of pattern matches for M —→ N in the proof of preserve
This commit is contained in:
parent
00bd32e7ac
commit
643ff85cd0
1 changed files with 1 additions and 1 deletions
|
@ -807,7 +807,7 @@ preserve ((⊢ƛ ⊢N) · ⊢V) (β-ƛ VV) = subst ⊢V ⊢N
|
|||
preserve ⊢zero ()
|
||||
preserve (⊢suc ⊢M) (ξ-suc M—→M′) = ⊢suc (preserve ⊢M M—→M′)
|
||||
preserve (⊢case ⊢L ⊢M ⊢N) (ξ-case L—→L′) = ⊢case (preserve ⊢L L—→L′) ⊢M ⊢N
|
||||
preserve (⊢case ⊢zero ⊢M ⊢N) β-zero = ⊢M
|
||||
preserve (⊢case ⊢zero ⊢M ⊢N) (β-zero) = ⊢M
|
||||
preserve (⊢case (⊢suc ⊢V) ⊢M ⊢N) (β-suc VV) = subst ⊢V ⊢N
|
||||
preserve (⊢μ ⊢M) (β-μ) = subst (⊢μ ⊢M) ⊢M
|
||||
```
|
||||
|
|
Loading…
Reference in a new issue