diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-04 07:45:34 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-04 07:45:34 +0000 |
| commit | 1dd2c8e1a03078583887dd2dfb20273fc5c11c1c (patch) | |
| tree | 6f7a575476680e75ce27221809ebb413e5d038ee /contrib/correctness/putil.ml | |
| parent | 231d0032cc337aa8116caa16635d10d2aa91fffb (diff) | |
deux fichiers (past et ptype) uniquement sous forme de .mli
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1527 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness/putil.ml')
| -rw-r--r-- | contrib/correctness/putil.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/contrib/correctness/putil.ml b/contrib/correctness/putil.ml index 7fd8b7b4a..2f86d355e 100644 --- a/contrib/correctness/putil.ml +++ b/contrib/correctness/putil.ml @@ -21,6 +21,9 @@ open Past open Penv open Prename +let is_mutable = function Ref _ | Array _ -> true | _ -> false +let is_pure = function TypePure _ -> true | _ -> false + let named_app f x = { a_name = x.a_name; a_value = (f x.a_value) } let pre_app f x = |