data Reflects : (a -> Type) -> Maybe a -> Typerecord RMaybe : (a -> Type) -> Type.Holds : RMaybe p -> Maybe aHolds : RMaybe p -> Maybe a0 .Proof : ({rec:0} : RMaybe p) -> Reflects p (Holds {rec:0})0 Proof : ({rec:0} : RMaybe p) -> Reflects p (Holds {rec:0})map : p <-> q -> RMaybe p -> RMaybe qfindR : (pred : (a -> Bool)) -> (xs : List a) -> RMaybe (\x => (Elem x xs, pred x = True))