proposition: Lemma canon0_lt a: T1nf a -> a <> zero -> T1lt (canon a 0) a.
proof: Proof. rewrite -(h2g_g2hK a) -nf_ref /canon => Hnf. rewrite g2h_h2gK => Hpos. apply lt_ref, Canon.canon0_LT => // H. apply Hpos; by rewrite H. Qed.
imports: mathcomp(all_ssreflect zify) hydras(Canon) T1Bridge hydras(T1) gaia(ssete9)