diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-05 14:29:44 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-05 14:29:44 +0000 |
| commit | 763102437580da08cd96d06d05d99dc1a3eda1b1 (patch) | |
| tree | 7721eae697f75fd3769260ef8b8adc4c7b4197f7 /contrib/correctness/perror.ml | |
| parent | def9cd8e725af360c5e528450ecd7660dcef7620 (diff) | |
mise en place de Correctness; vieille syntaxe Extraction viree de g_vernac.ml4
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1551 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness/perror.ml')
| -rw-r--r-- | contrib/correctness/perror.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/correctness/perror.ml b/contrib/correctness/perror.ml index 0435095fa..950bc62bf 100644 --- a/contrib/correctness/perror.ml +++ b/contrib/correctness/perror.ml @@ -16,10 +16,11 @@ open Names open Term open Himsg -open Putil open Ptype open Past +let is_mutable = function Ref _ | Array _ -> true | _ -> false +let is_pure = function TypePure _ -> true | _ -> false let raise_with_loc = function | None -> raise |