Concurrent Definition

# Are the inputed lines concurrent?
# It solves the system of equations inputed_line=0 for all inputed lines
# and returns true if there is a solution (in Maple args is the sequence of arguments)

Concurrent:=proc():

not evalb(solve({args},{x,y})=NULL): end:

end: