fact: Fixpoint double (n : binnat) : binnat := match n with | bzero => bzero | double1 n' => double2 (double n') | double2 n' => double2 (Succ (double n')) end.
imports: HoTT.Spaces.Nat HoTT.Tactics HoTT.Classes.interfaces.abstract_algebra HoTT.Classes.interfaces.naturals HoTT.Classes.interfaces.orders HoTT.Classes.implementations.peano_naturals HoTT.Classes.theory.rings HoTT.Classes.orders.semirings HoTT.Classes.theory.apartness