diff options
| author | Hugo Herbelin | 2014-10-05 15:56:05 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-10-09 16:04:42 +0200 |
| commit | 68a7940b2d6b03fd511faf8ad8a65edc9f7aa0e1 (patch) | |
| tree | 281501dd118cd87dfc6d0b90d6062971920c5ad6 /proofs/tacmach.ml | |
| parent | e824d429363262a9ff9db117282fe15289b5ab59 (diff) | |
Removing Convert_concl and Convert_hyp from Logic.
Diffstat (limited to 'proofs/tacmach.ml')
| -rw-r--r-- | proofs/tacmach.ml | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 6c72009d4c..c6f09eb2db 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -117,12 +117,6 @@ let internal_cut_rev_no_check replace id t gl = let refine_no_check c gl = refiner (Refine c) gl -let convert_concl_no_check c sty gl = - refiner (Convert_concl (c,sty)) gl - -let convert_hyp_no_check d gl = - refiner (Convert_hyp d) gl - (* This does not check dependencies *) let thin_no_check ids gl = if List.is_empty ids then tclIDTAC gl else refiner (Thin ids) gl @@ -148,8 +142,6 @@ let introduction id = with_check (introduction_no_check id) let internal_cut b d t = with_check (internal_cut_no_check b d t) let internal_cut_rev b d t = with_check (internal_cut_rev_no_check b d t) let refine c = with_check (refine_no_check c) -let convert_concl d sty = with_check (convert_concl_no_check d sty) -let convert_hyp d = with_check (convert_hyp_no_check d) let thin c = with_check (thin_no_check c) let move_hyp b id id' = with_check (move_hyp_no_check b id id') let rename_hyp l = with_check (rename_hyp_no_check l) |