diff options
Diffstat (limited to 'kernel/context.ml')
-rw-r--r-- | kernel/context.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index 4e53b73a2..2b6bc34f9 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -143,10 +143,6 @@ struct | LocalAssum (n,ty) -> f ty acc | LocalDef (n,v,ty) -> f ty (f v acc) - let to_tuple = function - | LocalAssum (na, ty) -> na, None, ty - | LocalDef (na, v, ty) -> na, Some v, ty - let of_tuple = function | n, None, ty -> LocalAssum (n,ty) | n, Some v, ty -> LocalDef (n,v,ty) |