val mk_fresh_name : ProofEngineTypes.mk_fresh_name_type
(* identity_relocation_list_for_metavariable i canonical_context *)
-(* returns the identity relocation list, which is the list [1 ; ... ; n] *)
-(* where n = List.length [canonical_context] *)
+(* returns the identity relocation list, which is the list *)
+(* [Rel 1 ; ... ; Rel n] where n = List.length [canonical_context] *)
val identity_relocation_list_for_metavariable :
'a option list -> Cic.term option list