diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-06-06 10:46:33 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-06 10:46:33 +0200 |
| commit | 2f23c27e08f66402b8fba4745681becd402f4c5c (patch) | |
| tree | 8948cdbfa4c908ae9e7f671efbd17744a0e38fc6 /engine/eConstr.ml | |
| parent | 9b44017963a742dacb381a9060f908ce421309fe (diff) | |
| parent | d9ea37641bc67ca269065a9489ec8e70b2f2d246 (diff) | |
Merge PR#662: Fixing bug #5233 and another bug with implicit arguments + a short econstr-cleaning of 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 5a05150d4..33d7acc31 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 |