diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-20 18:08:24 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-31 00:44:26 +0200 |
commit | 99fe89385f6590aac5bc2dadf246c3d021986f7c (patch) | |
tree | 6c122c59d5a1637c03dbb5d6dd975af3b41702ba /engine | |
parent | bcc9165aec1a80d563d7060ef127ad022e9ed008 (diff) |
Using EConstr and more invariants in record.ml.
Diffstat (limited to 'engine')
-rw-r--r-- | engine/eConstr.ml | 2 | ||||
-rw-r--r-- | engine/eConstr.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index c0485e4e7..1f4ff5092 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -45,6 +45,7 @@ val of_named_decl : (Constr.t, Constr.types) Context.Named.Declaration.pt -> (t, val unsafe_to_named_decl : (t, t) Context.Named.Declaration.pt -> (Constr.t, Constr.types) Context.Named.Declaration.pt val unsafe_to_rel_decl : (t, t) Context.Rel.Declaration.pt -> (Constr.t, Constr.types) Context.Rel.Declaration.pt val of_rel_decl : (Constr.t, Constr.types) Context.Rel.Declaration.pt -> (t, t) Context.Rel.Declaration.pt +val to_rel_decl : Evd.evar_map -> (t, t) Context.Rel.Declaration.pt -> (Constr.t, Constr.types) Context.Rel.Declaration.pt end = struct @@ -131,6 +132,7 @@ let of_named_decl d = d let unsafe_to_named_decl d = d let of_rel_decl d = d let unsafe_to_rel_decl d = d +let to_rel_decl sigma d = Context.Rel.Declaration.map_constr (to_constr sigma) d end diff --git a/engine/eConstr.mli b/engine/eConstr.mli index 9d705b4d5..06020c573 100644 --- a/engine/eConstr.mli +++ b/engine/eConstr.mli @@ -266,6 +266,8 @@ val fresh_global : val of_named_decl : (Constr.t, Constr.types) Context.Named.Declaration.pt -> (t, types) Context.Named.Declaration.pt val of_rel_decl : (Constr.t, Constr.types) Context.Rel.Declaration.pt -> (t, types) Context.Rel.Declaration.pt +val to_rel_decl : Evd.evar_map -> (t, types) Context.Rel.Declaration.pt -> (Constr.t, Constr.types) Context.Rel.Declaration.pt + (** {5 Unsafe operations} *) module Unsafe : |