Slightly clean up some comments

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

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 []