diff options
| author | filliatr | 1999-12-02 16:43:08 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-02 16:43:08 +0000 |
| commit | 162fc39bcc36953402d668b5d7ac7b88c9966461 (patch) | |
| tree | 764403e3752e1c183ecf6831ba71e430a4b3799b /kernel/names.ml | |
| parent | 33019e47a55caf3923d08acd66077f0a52947b47 (diff) | |
modifs pour premiere edition de liens
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@189 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index e04a41f42b..dd7ad6f3a6 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -202,6 +202,9 @@ let sp_of_wd = function | bn::dp -> make_path dp (id_of_string bn) OBJ | _ -> invalid_arg "Names.sp_of_wd" +let wd_of_sp sp = + let (sp,id,_) = repr_path sp in sp @ [string_of_id id] + let sp_ord sp1 sp2 = let (p1,id1,k) = repr_path sp1 and (p2,id2,k') = repr_path sp2 in |