fact: Definition h10uc_to_h10upcs (c : h10uc) : list h10upc := let '(x, y, z) := c in let '(a, b, c, t1, t2) := (var y 1, var y 2, var y 3, var y 4, var x 1) in let '(x, y, z) := (var x 0, var y 0, var z 0) in [((a, a), (b, t1)); ((c, y), (b, a)); ((c, x), (z, t2))].
imports: List Lia Cantor ssreflect ssrbool ssrfun Undecidability.DiophantineConstraints.H10C