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

