AZ
Size: a a a
AZ
AZ
Ct
AZ
multiply _ 0 = 0
multiply 0 _ = 0
multiply x y = (multiply x y - 1) + x
AZ
ШН
multiply _ 0 = 0
multiply 0 _ = 0
multiply x y = (multiply x y - 1) + x
Ct
AZ
ШН
м
AZ
AZ
revCorrect : (xs : List a) ->
(f : b -> a -> b) ->
(init : b) ->
foldl f init (revDumb xs) = foldr (flip f) init xs
revCorrect [] f init = Refl
revCorrect (x :: xs) f init = let rec = revCorrect xs f init in
rewrite sym rec in foldlRhs f init x (revDumb xs)
AZ
AZ
E
С
E
76
E
76