fact: Definition valuation_one_union k v i1 (g1 : nat -> nat) i2 g2 : ~ in_interval (interval_union i1 i2) k -> interval_disjoint i1 i2 -> { g | g k = v /\ (forall x, in_interval i1 x -> g x = g1 x) /\ (forall x, in_interval i2 x -> g x = g2 x) }.
imports: List Arith Nat Lia