Я нашел это упражнение по эквациональным рассуждениям и доказательствам в Haskell. Дан следующий код: type Stack = [Int] type Code = [Op] data Op = PUSH Int | ADD deriving (Show) -- -- Stack machine -- exec :: Code -> Stack -> Stack exec [...

Я писал в Идрисе следующее доказательство: n : Nat n = S (k + k) lemma: n * n = ((k * n) + k) + (1 + (((k * n) + k) + 0)) lemma = sym $ rewrite plusZeroRightNeutral ((k * n) + k) in rewrite plusAssociative ((k * n) + k) 1 ((k *...