fact: Fixpoint to_word (n:nat):(list (F 1)):= match n with |0 => (@nil (F 1)) |(S m)=> (cons (Build_F 1 0 ZerolessOne)(to_word m)) end.
imports: Lia CoRN.algebra.CMonoids CoRN.model.monoids.Nmonoid CoRN.model.setoids.Nfinsetoid