fact: Definition h10sqc_to_h10ucs (c : h10sqc) : list h10uc := match c with | h10sqc_one x => [(v 0, v 0, ζ x 0)] | h10sqc_sq x y => [(v 0, ζ x 0, ζ y 1); (ζ y 0, v 0, ζ y 1)] | h10sqc_plus x y z => [ (ζ x 0, v 0, ζ x 1); (v 0, ζ x 1, ζ x 2); (ζ x 3, ζ x 0, ζ x 2); (ζ y 0, v 0, ζ y 1); (ζ x 3, ζ y 1, θ x y 0); (θ x y 1, ζ y 0, θ x y 0); (ζ z 0, v 0, ζ z 1); (v 1, ζ z 1, θ x y 2); (θ x y 1, ζ z 0, θ x y 2)] end.
imports: List Lia Undecidability.DiophantineConstraints.H10C ssreflect ssrbool ssrfun