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.