diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-01 09:16:15 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-01 09:16:54 +0200 |
| commit | b6c6e953d28d216c6320418885e20605cc69fb92 (patch) | |
| tree | a5adfe5a85b883830b885ef267ff0e255771b679 /proofs | |
| parent | 12268bef28dea57fdbe29dc87d26ef453ad5cfed (diff) | |
Fixing name of internal refine ("simple refine").
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 57ff77708..483f82113 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -1105,7 +1105,7 @@ struct let comb = undefined sigma (CList.rev evs) in let sigma = CList.fold_left Unsafe.mark_as_goal_evm sigma comb in let open Proof in - InfoL.leaf (Info.Tactic (fun () -> Pp.(hov 2 (str"refine"++spc()++ Hook.get pr_constrv env sigma c)))) >> + InfoL.leaf (Info.Tactic (fun () -> Pp.(hov 2 (str"simple refine"++spc()++ Hook.get pr_constrv env sigma c)))) >> Pv.modify (fun ps -> { ps with solution = sigma; comb; }) end |