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