diff options
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 ⟧ₜ |