Kind/book/U60.cmp.kind2

9 lines
139 B
Plaintext
Raw Normal View History

2024-02-21 18:10:56 +03:00
U60.cmp
2024-03-02 02:40:31 +03:00
: ∀(a: #U60) ∀(b: #U60) Cmp
2024-02-21 18:10:56 +03:00
= λa λb
2024-03-02 02:40:31 +03:00
(U60.if
#(== a b)
Cmp
(U60.if #(< a b) Cmp Cmp.gtn Cmp.ltn)
Cmp.eql
)