Induction on a is unflawed: every occurrence of a in the conjecture
(equal (app (app a b) c)
(app a (app b c)))
is in a position being recursively decomposed!
Now look at the occurrences of b. The first (shown in bold below) is
in a position that is held constant in the recursion of (app a b). It
would be ``bad'' to induct on b here.
(equal (app (app a b) c)
(app a (app b c)))