assume [P,A,Q] : (line(P) & point(A) & line(Q) & ninc_po_l(A,P) & inc_po_l(A,Q) & int_l_l(P,Q))
let [R] : (plane(R) & inc_po_pl(A,R) & inc_l_pl(P,R))
have (inc_l_pl(Q,R))
