AG
но в качестве предикатов (в були, т.е. разрешимые) мы можем брать функции над населенными типами
Size: a a a
2021 June 10
λ
Будет и там батл рояль
λ
И чёт они похоже решили делать карты на200+
GP
я чет онлайн не играл
GP
и не с кем особ
λ
В варзону го
λ
Сам правда играл 1 раз
λ
Хочешь по жопе бить мадаму?
AG
т.е. мы можем написать например
Definition oleg : prp := all a : N, ([a == 0]) and neg ([a == 0]).AG
тогда доказательство
а опровержение
W oleg : Set = nat -> unit * (unit -> unit)а опровержение
C oleg : Set = {_ : nat & (unit + unit)%type}AG
т.е. чтобы доказать это утверждение нам надо предоставить функцию (перекат на идрис-синтаксис для ценителей)
выполнялось диалектика-условие
Nat -> ((), ()->()) такую, чтобы для любой сигмы coleg : (n ** Either () ()) выполнялось диалектика-условие
case snd coleg of
Left _ => fst coleg == 0
Right _ => fst coleg /= 0
AG
т.е. тут тривиально "доказательство", а вот "опровержение" непреодолимо, так как требует для любого числа показать что оно одновременно равно и не равно 0
AG
(поскольку мы заранее не знаем левую или правую ветку выберет опровергатель, нам надо иметь доказательство на два случая заранее)