fact: Fixpoint rTreeGet (t : rTree) (r : rNat) {struct r} : option A := match r, t with | _, rEmpty => None | xH, rSplit a _ _ => a | xO p, rSplit _ t' _ => rTreeGet t' p | xI p, rSplit _ _ t' => rTreeGet t' p end.
imports: Stalmarck(sTactic) Coq(Relation_Definitions) Coq(ZArith) Coq(Inverse_Image) Coq(Inclusion) Coq(Wf_nat) Coq(List)