diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-09-15 10:38:45 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-09-15 10:38:45 +0200 |
| commit | d6d7a12eb49c997dd83298477e216349fad74c7f (patch) | |
| tree | aa4648227f0b1a5c5e9c1b5e6e2f17818db73413 /plugins | |
| parent | d2406149554812a01ac615af43af6b7b2a3efd72 (diff) | |
| parent | a1efd8080465eb49b30b5bab61cf3861899876e4 (diff) | |
Merge PR #1048: Port is_Set and is_Type to EConstr, as was is_Prop already.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/omega/coq_omega.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index d07b2e0b4..99493d698 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1773,11 +1773,6 @@ let onClearedName2 id tac = tclTHENLIST [ introduction id1; introduction id2; tac id1 id2 ] end) -let rec is_Prop sigma c = match EConstr.kind sigma c with - | Sort s -> Sorts.is_prop (ESorts.kind sigma s) - | Cast (c,_,_) -> is_Prop sigma c - | _ -> false - let destructure_hyps = Proofview.Goal.enter begin fun gl -> let type_of = Tacmach.New.pf_unsafe_type_of gl in @@ -1809,7 +1804,7 @@ let destructure_hyps = | Kimp(t1,t2) -> (* t1 and t2 might be in Type rather than Prop. For t1, the decidability check will ensure being Prop. *) - if is_Prop sigma (type_of t2) + if Termops.is_Prop sigma (type_of t2) then let d1 = decidability t1 in tclTHENLIST [ |