] option list *
(Cic.context * Cic.term) list
-exception TermNotFound
-exception TermFoundMultipleTimes
-
(** locate_in_term equality what where context
* [what] must match a subterm of [where] according to [equality]
-* It returns the matched term together with its context in [where]
+* It returns the matched terms together with their contexts in [where]
* [equality] defaults to physical equality
* [context] must be the context of [where]
-* It may raise TermNotFound or TermFoundMultipleTimes
*)
val locate_in_term:
?equality:(Cic.term -> Cic.term -> bool) -> Cic.term -> where:Cic.term ->
- Cic.context -> Cic.context * Cic.term
+ Cic.context -> (Cic.context * Cic.term) list
-(** locate_in_conjecture equality what where
+(** locate_in_term equality what where context
* [what] must match a subterm of [where] according to [equality]
-* It returns the context of [what] in [where]
+* It returns the matched terms together with their contexts in [where]
* [equality] defaults to physical equality
-* It may raise TermNotFound or TermFoundMultipleTimes
+* [context] must be the context of [where]
*)
val locate_in_conjecture:
?equality:(Cic.term -> Cic.term -> bool) -> Cic.term -> Cic.conjecture ->
- Cic.context
+ (Cic.context * Cic.term) list
(* saturate_term newmeta metasenv context ty *)
(* Given a type [ty] (a backbone), it returns its head and a new metasenv in *)