] option list *
(Cic.context * Cic.term) list
+(** locate_in_term what where
+* [what] must be a physical pointer to a subterm of [where]
+* It returns the context of [what] in [where] *)
val locate_in_term: Cic.term -> where:Cic.term -> Cic.context
(* saturate_term newmeta metasenv context ty *)