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