assume [P,A,R1,R2] : (line(P) & point(A) & plane(R1) & plane(R2) & ninc_po_l(A,P) & inc_po_pl(A,R1) & inc_l_pl(P,R1) & inc_po_pl(A,R2) & inc_l_pl(P,R2))
let [B,C] : (point(B) & point(C) & B!=C & inc_po_l(B,P) & inc_po_l(C,P))
have (ncol(A,B,C))
have (inc_po_pl(A,R1) & inc_po_pl(B,R1) & inc_po_pl(C,R1) & inc_po_pl(A,R2) & inc_po_pl(B,R2) & inc_po_pl(C,R2))
have (R1 = R2)

