| index::pos ->
match term with
| Cic.Appl l ->
- (try subterm_at_pos pos (List.nth l index) with _ -> raise Not_found)
+ (try subterm_at_pos pos (List.nth l index)
+ with Failure _ -> raise Not_found)
| _ -> raise Not_found
;;
in
try
let n = PSMap.find (Cic.Implicit None) map in
- let newpos = try after_t pos term with _ -> [-1] in
+ let newpos = try after_t pos term with Not_found -> [-1] in
if newpos = [-1] then
match n with
| DiscriminationTree.Node (Some s, _) -> PosEqSet.union s res
in
try
let n = PSMap.find (Cic.Implicit None) map in
- let newpos = try after_t pos term with _ -> [-1] in
+ let newpos = try after_t pos term with Not_found -> [-1] in
if newpos = [-1] then
match n with
| DiscriminationTree.Node (Some s, _) -> PosEqSet.union s res