let coerc_carr_of_term t =
try
match t with
- Cic.Sort s -> Sort s
+ | Cic.Sort s -> Sort s
+ | Cic.Prod _ -> Fun 0
| Cic.Appl (t::_)
| t -> Uri (CicUtil.uri_of_term t)
with Invalid_argument _ ->
else raise EqCarrOnNonMetaClosed
| Fun _,Fun _ -> true (* only one Funclass? *)
(* | Fun i,Fun j when i=j -> true *)
+ | Term t, _
+ | _, Term t when not (CicUtil.is_meta_closed t) -> raise EqCarrOnNonMetaClosed
| _, _ -> false
;;