proposition: Lemma transport : H10SQC_SAT sqcs -> H10UC_SAT ucs.
proof: Proof. move=> [φ Hφ]. exists (φ' φ). move: Hφ. rewrite -?Forall_forall /ucs Forall_app Forall_flat_map. move=> H. constructor. - by do ? constructor. - apply: Forall_impl H => ?. by move /h10sqc_to_h10ucs_spec. Qed.
imports: List Lia Undecidability.DiophantineConstraints.H10C ssreflect ssrbool ssrfun