diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssr/ssreflect.v | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/plugins/ssr/ssreflect.v b/plugins/ssr/ssreflect.v index c78381d3cc..e1e4d25ced 100644 --- a/plugins/ssr/ssreflect.v +++ b/plugins/ssr/ssreflect.v @@ -528,28 +528,6 @@ Parameter under_done : forall (T : Type) (x : T), @Under T x x. Notation "''Under[' x ]" := (@Under _ x _) (at level 8, format "''Under[' x ]"). - -Ltac beta_expand c e := - match e with - | ?G ?z => - let T := type of z in - match c with - | context f [z] => - let b := constr:(fun x : T => ltac:(let r := context f [x] in refine r)) in - rewrite -{1}[c]/(b z); beta_expand b G - | (* constante *) _ => - let b := constr:(fun x : T => ltac:(exact c)) in - rewrite -{1}[c]/(b z); beta_expand b G - end - | ?G => idtac - end. - -Ltac unify_helper := - move=> *; - lazymatch goal with - | [ |- @Under _ ?c ?e ] => - beta_expand c e - end. End UNDER. Module Export Under : UNDER. @@ -575,7 +553,6 @@ Register Under_from_eq as plugins.ssreflect.Under_from_eq. Ltac over := solve [ apply Under.under_done | by rewrite over - | unify_helper; eapply Under.under_done ]. (* The 2 variants below wouldn't work on [test-suite/ssr/over.v:test_over_2_1] |