diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-23 20:47:29 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-24 16:44:48 +0200 |
| commit | 4662a2c92ecfdfb383f504f8c230b6d2f2bb58fc (patch) | |
| tree | 5cf530d41d9e38328af8ed62c9707a8c845d869b /ide | |
| parent | 5eaa183732bade55d2df3a6173c3765745e6eeb7 (diff) | |
Fixing order of hypothesis in goal hypotheses compaction for coqtop.
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/ide_slave.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index a91be2aa4..60dfa894a 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -180,7 +180,7 @@ let process_goal sigma g = (string_of_ppcmds (pr_var_list_decl min_env sigma d)) in let hyps = List.map process_hyp - (Termops.compact_named_context (Environ.named_context env)) in + (Termops.compact_named_context_reverse (Environ.named_context env)) in { Interface.goal_hyp = hyps; Interface.goal_ccl = ccl; Interface.goal_id = id; } let goals () = |