diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-11-22 20:30:19 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-11-23 13:38:29 +0100 |
commit | c81065e5cdc6d803bd67eccf93dc8fbb640c6892 (patch) | |
tree | 7314613fae8f2079be3a6b2df4417625a432e028 /proofs/redexpr.ml | |
parent | 9aae44e9c63d4833bf644b21e0ca7d8adab92e3a (diff) |
One more word about "simpl f": avoid "simpl f" to be printed "simpl f",
at least when f is an evaluable reference.
Diffstat (limited to 'proofs/redexpr.ml')
-rw-r--r-- | proofs/redexpr.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml index fb501c7a5..386ad70ec 100644 --- a/proofs/redexpr.ml +++ b/proofs/redexpr.ml @@ -183,10 +183,8 @@ let contextualize f g = function | Some (occs,c) -> let l = Locusops.occurrences_map (List.map out_arg) occs in let b,c,h = match c with - | Inl r -> true, PRef (global_of_evaluable_reference r),f - | Inr c -> - let b = if head_style then false else (* compat *) is_reference c in - b,c,g in + | Inl r -> true,PRef (global_of_evaluable_reference r),f + | Inr c -> false,c,f in e_red (contextually b (l,c) (fun _ -> h)) | None -> e_red g |