fact: Fixpoint Stern_bij_rec (x:rat) (n:nat) := if n is m.+1 then if(0 < x < 1) then xO (Stern_bij_rec (Sba_j x) m) else if(1 < x) then xI (Stern_bij_rec (Sba_m x) m) else xH else xH.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq choice fintype order bigop ssralg) mathcomp(div ssrnum ssrint rat prime path binomial) mathcomp(tuple finset) gaia(fibm)