-(* identity_relocation_list_for_metavariable i 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
-