diff options
| author | Matej Kosik | 2016-08-30 10:47:37 +0200 |
|---|---|---|
| committer | Matej Kosik | 2016-08-30 10:47:37 +0200 |
| commit | 2ff6d31c7a6011b26dfa7f0b2bb593b356833058 (patch) | |
| tree | 82a3b37c697a2f4b2512cca8ebd72135dfb9673d /toplevel | |
| parent | 24f70f4173726c5c4734a6f8f907d4bf4a0124ea (diff) | |
CLEANUP: using |> operator more consistently
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/assumptions.ml | 2 | ||||
| -rw-r--r-- | toplevel/himsg.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/assumptions.ml b/toplevel/assumptions.ml index 49a815dc1a..8865cd6469 100644 --- a/toplevel/assumptions.ml +++ b/toplevel/assumptions.ml @@ -146,7 +146,7 @@ let label_of = function let rec traverse current ctx accu t = match kind_of_term t with | Var id -> - let body () = Global.lookup_named id |> NamedDecl.get_value in + let body () = id |> Global.lookup_named |> NamedDecl.get_value in traverse_object accu body (VarRef id) | Const (kn, _) -> let body () = Global.body_of_constant_body (lookup_constant kn) in diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index c5ddf71864..670d30c6c5 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -148,7 +148,7 @@ let pr_explicit env sigma t1 t2 = pr_explicit_aux env sigma t1 t2 explicit_flags let pr_db env i = try - match lookup_rel i env |> get_name with + match env |> lookup_rel i |> get_name with | Name id -> pr_id id | Anonymous -> str "<>" with Not_found -> str "UNBOUND_REL_" ++ int i |