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 /plugins/decl_mode | |
| parent | 24f70f4173726c5c4734a6f8f907d4bf4a0124ea (diff) | |
CLEANUP: using |> operator more consistently
Diffstat (limited to 'plugins/decl_mode')
| -rw-r--r-- | plugins/decl_mode/decl_proof_instr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/decl_mode/decl_proof_instr.ml b/plugins/decl_mode/decl_proof_instr.ml index 8e6c7a70d9..90adb0c361 100644 --- a/plugins/decl_mode/decl_proof_instr.ml +++ b/plugins/decl_mode/decl_proof_instr.ml @@ -824,7 +824,7 @@ let define_tac id args body gls = let cast_tac id_or_thesis typ gls = match id_or_thesis with | This id -> - Proofview.V82.of_tactic (pf_get_hyp gls id |> NamedDecl.set_id id |> NamedDecl.set_type typ |> convert_hyp) gls + Proofview.V82.of_tactic (id |> pf_get_hyp gls |> NamedDecl.set_id id |> NamedDecl.set_type typ |> convert_hyp) gls | Thesis (For _ ) -> error "\"thesis for ...\" is not applicable here." | Thesis Plain -> |