scheme :: HILB10_3:sch 1
UnionDiophantine{ F1() -> Nat, P1[ XFinSequence of NAT ], P2[ XFinSequence of NAT ] } :
provided