| _ -> false
;;
-let flexible subst l = List.exists (flexible_arg subst) l;;
-
let in_scope_tag = "tag:in_scope" ;;
let out_scope_tag_prefix = "tag:out_scope:"
let out_scope_tag n = out_scope_tag_prefix ^ string_of_int n ;;
let lc = NCicUtils.expand_local_context lc in
let l = List.map (NCicSubstitution.lift shift) lc in
if
- List.exists (fun t-> NCicUntrusted.metas_of_term subst context t = []) l
+ List.exists (fun t-> NCicUntrusted.metas_of_term subst context t <> [])l
then
raise (Uncertain msg)
else