open import 1Lab.Prim.Interval
open import 1Lab.Prim.Type

module 1Lab.Prim.Extension where


# Primitives: Extension types🔗

Using the type of Partial elements lets us specify maps from some sub-object of a power of the interval to a type $A$. The cubical subtypes, or extension types, give us the ability to encode that such a partial element $p$ fits into a commutative diagram

where $e$ is an ordinary element of $A$ (with $n$ dimension variables). Commutativity means that, where $p$ is defined, $e$ agrees with it definitionally.

{-# BUILTIN SUB _[_↦_] #-}

postulate
inS : ∀ {ℓ} {A : Type ℓ} {φ} (x : A) → A [ φ ↦ (λ _ → x) ]

{-# BUILTIN SUBIN inS #-}

private module X where primitive
primSubOut : ∀ {ℓ} {A : Type ℓ} {φ : I} {u : Partial φ A} → A [ φ ↦ u ] → A

open X renaming (primSubOut to outS) public


Using extension types, we can represent the accurate type of primPOr, where the two partial elements u and v must agree on the intersection i ∧ j.

partial-pushout
: ∀ {ℓ} (i j : I) {A : Partial (i ∨ j) (Type ℓ)}
{ai : PartialP {a = ℓ} (i ∧ j) (λ { (j ∧ i = i1) → A 1=1 }) }
→ (.(z : IsOne i) → A (leftIs1 i j z)  [ (i ∧ j) ↦ (λ { (i ∧ j = i1) → ai 1=1 }) ])
→ (.(z : IsOne j) → A (rightIs1 i j z) [ (i ∧ j) ↦ (λ { (i ∧ j = i1) → ai 1=1 }) ])
→ PartialP (i ∨ j) A
partial-pushout i j u v = primPOr i j (λ z → outS (u z)) (λ z → outS (v z))