diff options
| author | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-08 16:23:39 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown@cl.cam.ac.uk> | 2022-03-08 16:27:38 +0000 |
| commit | 2ed2b3f6007ad497fc331c079ee2f74724b00669 (patch) | |
| tree | 23119abbe1e7d26b98d3c8ebfe9cb660c0386975 /src/Helium/Semantics/Axiomatic/Core.agda | |
| parent | e3bfd6aa1594a84be897d7a50e882d3a2c54067a (diff) | |
Add semantics of Hoare logic terms.
Diffstat (limited to 'src/Helium/Semantics/Axiomatic/Core.agda')
| -rw-r--r-- | src/Helium/Semantics/Axiomatic/Core.agda | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Helium/Semantics/Axiomatic/Core.agda b/src/Helium/Semantics/Axiomatic/Core.agda index de4f411..3b7e8db 100644 --- a/src/Helium/Semantics/Axiomatic/Core.agda +++ b/src/Helium/Semantics/Axiomatic/Core.agda @@ -60,6 +60,10 @@ private ⟦ [] ⟧ₜ′ = Lift (b₁ ⊔ i₁ ⊔ r₁) ⊤ ⟦ t ∷ ts ⟧ₜ′ = ⟦ t ⟧ₜ × ⟦ ts ⟧ₜ′ +fetch : ∀ i → ⟦ Γ ⟧ₜ′ → ⟦ lookup Γ i ⟧ₜ +fetch {Γ = _ ∷ _} 0F (x , _) = x +fetch {Γ = _ ∷ _} (suc i) (_ , xs) = fetch i xs + Transform : Vec Type m → Type → Set (b₁ ⊔ i₁ ⊔ r₁) Transform ts t = ⟦ ts ⟧ₜ′ → ⟦ t ⟧ₜ |