fact: Definition flatten_future v := match v with | (true, x) => (true, flatten x) | (false, closure xs s) => (false, flatten (closure xs (lam s))) end.
imports: List Relations Undecidability.L.L Undecidability.L.Util.L_facts ssreflect ssrbool ssrfun