fact: Definition truncate (l : list bool) : list bool := match l with | [false] => [] | [a; false] => if a then [a] else [] | _ => l end.
imports: Undecidability(TM.SBTM TM.Util.SBTM_facts) Undecidability.Shared.Libs.PSL.FiniteTypes.FinTypes PeanoNat Lia List ssreflect ssrbool ssrfun