michael/csci8980-f21
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tried out C-c C-a

Browse source
This commit is contained in:
wadler 2017-07-06 23:12:06 +01:00
parent a50ccd7315
commit 020fed2395
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Stlc.lagda
View file

@ -117,7 +117,7 @@ data _⟹*_ : Term → Term → Set where
reduction₁ : not · true ⟹* false reduction₁ : not · true ⟹* false
reduction₁ = reduction₁ =
not · true not · true
⟹⟨ (β⇒ value-true) ⟩ ⟹⟨ β⇒ value-true ⟩
if true then false else true if true then false else true
⟹⟨ β𝔹₁ ⟩ ⟹⟨ β𝔹₁ ⟩
false false
@ -218,4 +218,6 @@ that `var x`, `false`, and `true` are typed using `Ax`, `𝔹-I₂`, and
that `(∅ , x ∶ 𝔹) x = just 𝔹`, which can in turn be specified with a that `(∅ , x ∶ 𝔹) x = just 𝔹`, which can in turn be specified with a
hole. After filling in all holes, the term is as above. hole. After filling in all holes, the term is as above.
The entire process can be automated using Agsy, invoked with C-c C-a.