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/eConstr.ml | |
parent | bcc9165aec1a80d563d7060ef127ad022e9ed008 (diff) |
Using EConstr and more invariants in record.ml.
Diffstat (limited to 'engine/eConstr.ml')
-rw-r--r-- | engine/eConstr.ml | 2 |
1 files changed, 2 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 |