By: |
Auto THEN DVar `f' THEN Unfolds [`fpf-dom-list`;`fpf-dom`] 0 THEN Reduce 0
THEN
Inst Thm* T:Type, L:T List. L {x:T| (x L) } List [A;d]
THEN
DoSubsume
THEN
UseSubtypeRelLemmas
THEN
Analyze 0
THEN
Analyze -1
THEN
Analyze
THEN
RWO Thm* eq:EqDecider(A), L:A List, x:A. deq-member(eq;x;L)  (x L) 0 |