proposition: Lemma path_toS_zero_one : forall x alpha, path_toS zero (x::nil) alpha -> alpha = one.
proof: Proof. inversion 1. - subst; destruct H1. symmetry in H1; destruct (canonS_zero_inv _ _ H1). + contradiction. + auto. - inversion H4. Qed.
imports: hydras(DecPreOrder Canon MoreLists First_toggle OrdNotations) Coq(Lia)