fact: Definition rArrayGet (ar : rArray) (r : rNat) := match ar with | rArrayMake t f => match rTreeGet t r with | Some a => a | _ => f r end end.
imports: Stalmarck(sTactic) Coq(Relation_Definitions) Coq(ZArith) Coq(Inverse_Image) Coq(Inclusion) Coq(Wf_nat) Coq(List)