Я изо всех сил пытаюсь перевести свое определение Решета Эратосфена на Идрис. Вот функция до сих пор: %default total eratos : Nat -> (l : List Nat) -> { auto ok: NonEmpty l } -> List Nat eratos limit (prime :: rest) = if prime * prime...

Итак, я написал следующий тип, чтобы доказать некоторые свойства целых чисел: data Number : Type where PosN : Nat -> Number Zero : Number NegN : Nat -> Number plusPosNeg : Nat -> Nat -> Number plusPosNeg n m with (cmp n...