fact: Definition x1_neq_xH {z : Pos} : x1 z <> xH := fun p => transport (fun s => match s with xH => Empty | x0 a => Empty | x1 a => z = a end) p idpath.
imports: Basics.Overture Basics.Tactics Basics.Decidable Spaces.Nat.Core