fact: Fixpoint prod_encode_snd (p : positive) : positive := match p with | 1 => 1~0 | p~0 => (prod_encode_snd p)~0~0 | p~1 => (prod_encode_snd p)~1~0 end.
imports: Coq.QArith(QArith_base Qcanon) stdpp(well_founded) stdpp(options)