diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-07-01 12:39:57 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2015-07-02 08:34:41 +0200 |
| commit | a9665989a93014355ab152920c0a0e58cf0a7dfe (patch) | |
| tree | 2946111ff82b0d096c1142bb38b228c92a4000d2 /kernel/names.ml | |
| parent | dab5c4c642ee9b25d488c476d55db232cf74006b (diff) | |
Display functions for primitive projections.
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 480b37e89..f217c932c 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -819,6 +819,10 @@ struct let map f (c, b as x) = let c' = f c in if c' == c then x else (c', b) + + let to_string p = Constant.to_string (constant p) + let print p = Constant.print (constant p) + end type projection = Projection.t |