quox/examples/bool.quox

30 lines
796 B
Text
Raw Normal View History

2023-04-18 18:42:40 -04:00
load "misc.quox";
namespace bool {
2023-05-21 14:33:42 -04:00
def0 Bool : ★ = {true, false};
2023-04-18 18:42:40 -04:00
def boolω : 1.Bool → [ω.Bool] =
λ b ⇒ case1 b return [ω.Bool] of { 'true ⇒ ['true]; 'false ⇒ ['false] };
2023-05-21 14:33:42 -04:00
def if : 0.(A : ★) → 1.Bool → ω.A → ω.A → A =
2023-04-18 18:42:40 -04:00
λ A b t f ⇒ case1 b return A of { 'true ⇒ t; 'false ⇒ f };
-- [todo]: universe lifting
2023-05-21 14:33:42 -04:00
def0 If : 1.Bool → 0.★ → 0.★ → ★ =
λ b T F ⇒ case1 b return ★ of { 'true ⇒ T; 'false ⇒ F };
2023-04-18 18:42:40 -04:00
2023-05-21 14:33:42 -04:00
def0 T : ω.Bool → ★ = λ b ⇒ If b True False;
2023-04-18 18:42:40 -04:00
def true-not-false : Not ('true ≡ 'false : Bool) =
λ eq ⇒ coe (i ⇒ T (eq @i)) 'true;
2023-04-18 18:42:40 -04:00
-- [todo] infix
def and : 1.Bool → ω.Bool → Bool = λ a b ⇒ if Bool a b 'false;
def or : 1.Bool → ω.Bool → Bool = λ a b ⇒ if Bool a 'true b;
2023-04-18 18:42:40 -04:00
}
def0 Bool = bool.Bool;