diff options
| author | filliatr | 1999-12-01 10:52:21 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-01 10:52:21 +0000 |
| commit | b97c6e7e86bce3a6ec7a9e3b99cfc08067f00789 (patch) | |
| tree | 6f312c3b766574001929af1a3af5051cf28cf755 /kernel/names.ml | |
| parent | 752d4bd4c19bdfe427d2ab033ac18674a91faa25 (diff) | |
diverses fonctions ajoutees
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@170 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index dc1350fa39..316e0735a9 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -198,6 +198,10 @@ let append_to_path sp str = let (sp,id,k) = repr_path sp in make_path sp (id_of_string ((string_of_id id)^str)) k +let sp_of_wd = function + | bn::dp -> make_path dp (id_of_string bn) OBJ + | _ -> invalid_arg "Names.sp_of_wd" + let sp_ord sp1 sp2 = let (p1,id1,k) = repr_path sp1 and (p2,id2,k') = repr_path sp2 in |