DanilaFe/formal-interview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Slightly clean up some comments

Browse Source 
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2024-09-22 19:47:51 -07:00
parent e8460ab42f
commit 1f7dd876b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Lang.agda
View File

@ -151,7 +151,7 @@ basict₁ = pushint-t thenᵗ pushint-t thenᵗ pushint-t thenᵗ add-t thenᵗ
-- basict₂ : ([] ⟨ [] ⟩) ⊢ (loop 1 ∷ pushbool true ∷ break ∷ pushint (+ 1) ∷ end ∷ []) ↦* ([] ⟨ [] ⟩) -- basict₂ : ([] ⟨ [] ⟩) ⊢ (loop 1 ∷ pushbool true ∷ break ∷ pushint (+ 1) ∷ end ∷ []) ↦* ([] ⟨ [] ⟩)
-- basict₂ = loop-t thenᵗ pushbool-t thenᵗ break-t thenᵗ pushint-t thenᵗ end-t thenᵗ doneᵗ -- basict₂ = loop-t thenᵗ pushbool-t thenᵗ break-t thenᵗ pushint-t thenᵗ end-t thenᵗ doneᵗ
-- Fast forwarding to a 'break' in will peel off one continuation (since that -- Fast forwarding to a 'break' will peel off one continuation (since that
-- continuation encodes the post-loop type). -- continuation encodes the post-loop type).
lemma₁ : ∀ {lst} → st ⟨ lst ∷ F ⟩ ⊢ is ↦* σ → is ⇒ₓ is' → lst ⟨ F ⟩ ⊢ is' ↦* σ lemma₁ : ∀ {lst} → st ⟨ lst ∷ F ⟩ ⊢ is ↦* σ → is ⇒ₓ is' → lst ⟨ F ⟩ ⊢ is' ↦* σ
lemma₁ doneᵗ () lemma₁ doneᵗ ()
@ -194,7 +194,7 @@ data ⟦_⟧ˢ : List ValueType → List Value → Set where
-- Parameterize by final stack type. The reason to do this is that we want -- Parameterize by final stack type. The reason to do this is that we want
-- all continuations to end in the same type, so that control flow doesn't change -- all continuations to end in the same type, so that control flow doesn't change
-- what final type the program is evaluated to. This is an unfortunate consequence -- what final type the program is evaluated to. This is an unfortunate consequence
-- of having to include copies of the program as part of the type. -- of having to include copies of the rest of the program as part of execution.
module _ (stˡ : List ValueType) where module _ (stˡ : List ValueType) where
data ⟦_⟧ᶠ : List (List ValueType) → Program → Env → Set where data ⟦_⟧ᶠ : List (List ValueType) → Program → Env → Set where
⟦⟧ᶠ-empty : ⟦ [] ⟧ᶠ is [] ⟦⟧ᶠ-empty : ⟦ [] ⟧ᶠ is []