let parametrize_proof p l r ty =
let uniq l = HExtlib.list_uniq (List.sort Pervasives.compare l) in
let mot = CicUtil.metas_of_term_set in
- let parameters = uniq ((*mot p @*) mot l @ mot r) in
+ let parameters = uniq (mot p @ mot l @ mot r) in
(* ?if they are under a lambda? *)
let parameters =
HExtlib.list_uniq (List.sort Pervasives.compare parameters)