25 lines
827 B
Text
25 lines
827 B
Text
load "misc.quox"
|
||
|
||
namespace eta {
|
||
|
||
def0 Π : (A : ★) → (A → ★) → ★ = λ A B ⇒ (x : A) → B x
|
||
def0 Σ : (A : ★) → (A → ★) → ★ = λ A B ⇒ (x : A) × B x
|
||
|
||
def0 function : (A : ★) → (B : A → Type) → (P : Π A B → ★) → (f : Π A B) →
|
||
P (λ x ⇒ f x) → P f =
|
||
λ A B P f p ⇒ p
|
||
|
||
def0 box : (A : ★) → (P : [ω.A] → ★) → (e : [ω.A]) →
|
||
P [case1 e return A of {[x] ⇒ x}] → P e =
|
||
λ A P e p ⇒ p
|
||
|
||
def0 pair : (A : ★) → (B : A → ★) → (P : Σ A B → ★) → (e : Σ A B) →
|
||
P (fst e, snd e) → P e =
|
||
λ A B P e p ⇒ p
|
||
|
||
-- not exactly η, but kinda related
|
||
def0 from-false : (A : ★) → (P : (False → A) → ★) → (f : False → A) →
|
||
P (λ x ⇒ void A x) → P f =
|
||
λ A P f p ⇒ p
|
||
|
||
}
|