Add more higher-order primitives

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>

Language/Semantics.agda

@@ -12,7 +12,7 @@ open import Relation.Nullary using (¬_)
 open import Relation.Binary.PropositionalEquality using (_≡_)
 
 open import Lattice
-open import Utils using (_⇒_)
+open import Utils using (_⇒_; _∧_; _∨_)
 
 data Value : Set where
     ↑ᶻ : ℤ → Value
@@ -69,3 +69,5 @@ record LatticeInterpretation {l} {L : Set l} {_≈_ : L → L → Set l}
     field
         ⟦_⟧ : L → Value → Set
         ⟦⟧-respects-≈ : ∀ {l₁ l₂ : L} → l₁ ≈ l₂ → ⟦ l₁ ⟧ ⇒ ⟦ l₂ ⟧
+        ⟦⟧-⊔-∨ : ∀ {l₁ l₂ : L} → (⟦ l₁ ⟧ ∨ ⟦ l₂ ⟧) ⇒ ⟦ l₁ ⊔ l₂ ⟧
+        ⟦⟧-⊓-∧ : ∀ {l₁ l₂ : L} → (⟦ l₁ ⟧ ∧ ⟦ l₂ ⟧) ⇒ ⟦ l₁ ⊓ l₂ ⟧