aboutsummaryrefslogtreecommitdiffhomepage
path: root/proofs/tacmach.ml
diff options
context:
space:
mode:
authorGravatar Matej Kosik <m4tej.kosik@gmail.com>2016-08-30 10:47:37 +0200
committerGravatar Matej Kosik <m4tej.kosik@gmail.com>2016-08-30 10:47:37 +0200
commit2ff6d31c7a6011b26dfa7f0b2bb593b356833058 (patch)
tree82a3b37c697a2f4b2512cca8ebd72135dfb9673d /proofs/tacmach.ml
parent24f70f4173726c5c4734a6f8f907d4bf4a0124ea (diff)
CLEANUP: using |> operator more consistently
Diffstat (limited to 'proofs/tacmach.ml')
-rw-r--r--proofs/tacmach.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml
index 957843bc9..e90024076 100644
--- a/proofs/tacmach.ml
+++ b/proofs/tacmach.ml
@@ -59,7 +59,7 @@ let pf_get_hyp gls id =
raise (RefinerError (NoSuchHyp id))
let pf_get_hyp_typ gls id =
- pf_get_hyp gls id |> NamedDecl.get_type
+ id |> pf_get_hyp gls |> NamedDecl.get_type
let pf_ids_of_hyps gls = ids_of_named_context (pf_hyps gls)