proposition: Lemma canonS_cons_not_zero (i : nat) (a : T1) (n : nat) (b : T1): a <> zero -> canon (cons a n b) i.+1 <> zero.
proof: Proof. rewrite -(h2g_g2hK a) /canon => Hdiff. rewrite g2h_cons; change zero with (h2g T1.zero). rewrite h2g_eqE. apply canonS_cons_not_zero => H0; apply Hdiff. rewrite -(h2g_g2hK zero); apply h2g_eqE. move: H0; by rewrite g2h_h2gK. Qed.
imports: mathcomp(all_ssreflect zify) hydras(Canon) T1Bridge hydras(T1) gaia(ssete9)