This commit is contained in:
Michael Zhang 2021-10-16 00:44:35 -05:00
parent d24d992786
commit 8c4fe03730
Signed by: michael
GPG key ID: BDA47A31A3C8EE6B
2 changed files with 20 additions and 1 deletions

View file

@ -78,4 +78,4 @@ progress : ∀ {M A} → ∅ ⊢ M ⦂ A → Progress M
---------------------------------------------------- ----------------------------------------------------
-- preservation -- preservation
---------------------------------------------------- ----------------------------------------------------
preserve : {M N A} M A M —→ N N A preserve : {M N A} M A M —→ N N A

19
src/Project/Lambda1.agda Normal file
View file

@ -0,0 +1,19 @@
module Project.Lambda1 where
open import Data.Nat using (; suc; _≟_)
open import Relation.Binary.PropositionalEquality using (_≡_)
open import Relation.Nullary using (yes; no; ¬_)
data Term : Set where
`_ : Term
ƛ_ : Term Term
_·_ : Term Term Term
`suc _ : Term Term
`zero : Term
data Value : Term Set where
V-ƛ : {N} Value (ƛ N)
data Context : Set where
: Context