Substitute Forall2 for List_P2' in GFJ.v