Local Infix "⇡" := nat_join (at level 50, left associativity).Local Notation power := (mscal mult 1).

Theorem seqs_of_ones_diophantine l q u u1 : 𝔻P l -> 𝔻P q -> 𝔻P u -> 𝔻P u1 -> 𝔻R (fun v => seqs_of_ones (l v) (q v) (u v) (u1 v)).