fact: Fixpoint gnaw (alpha : T1) (s: list nat) := match s with | nil => alpha | (0::s') => gnaw alpha s' | (S i :: s') => gnaw (canon alpha (S i)) s' end.
imports: hydras(DecPreOrder Canon MoreLists First_toggle OrdNotations) Coq(Lia)