Subgoal *1/2'
(IMPLIES (AND (CONSP A)
(EQUAL (APP (APP (CDR A) B) C)
(APP (CDR A) (APP B C))))
(EQUAL (CONS (CAR A)
(APP (APP (CDR A) B)
C))
(APP A (APP B C)))).

Click on the link above to expand the definition of APP here. This time,
we'll do the whole expansion at once, including the simplification of the
resulting IF. This is how ACL2 actually does it.