Wolfram Language (Mathematica), 70 64 bytes

{#//.{aa___,bb__,bb_,cc___}:>{aa,cc}}=={{}}(**(,{>:}_,{.#{&)**)&

Try it online!

###Without comments, 92 bytes

((#//.bb_:>StringReplace[00[ecalpeRgnirtS>aa__:_.#&];bb,{{,}};00>00;00;aa:_~~aa_:>""]))==""&

Try it online!

Wolfram Language (Mathematica), 70 64 bytes

{#//.{aa___,bb__,bb_,cc___}:>{aa,cc}}=={{}}(**(,{>:}_,{.#{&)**)&

Try it online!

Without comments, 92 bytes

((#//.bb_:>StringReplace[00[ecalpeRgnirtS>aa__:_.#&];bb,{{,}};00>00;00;aa:_~~aa_:>""]))==""&

Try it online!

Wolfram Language (Mathematica), 70 66 bytes

(#//.{a___,bb__,bb_,c___}:>{a,c})=={}(**(}{)}c,a{>:}_c,a{.#(&)**)&

Try it online!

###Without comments, 92 bytes

((#//.bb_:>StringReplace[00[ecalpeRgnirtS>aa__:_.#&];bb,{{,}};00>00;00;aa:_~~aa_:>""]))==""&

Try it online!

Wolfram Language (Mathematica), 70 64 bytes

{#//.{aa___,bb__,bb_,cc___}:>{aa,cc}}=={{}}(**(,{>:}_,{.#{&)**)&

Try it online!

###Without comments, 92 bytes

((#//.bb_:>StringReplace[00[ecalpeRgnirtS>aa__:_.#&];bb,{{,}};00>00;00;aa:_~~aa_:>""]))==""&

Try it online!

Wolfram Language (Mathematica), 92 bytes

((#//.bb_:>StringReplace[00[ecalpeRgnirtS>aa__:_.#&];bb,{{,}};00>00;00;aa:_~~aa_:>""]))==""&

Try it online!

Wolfram Language (Mathematica), 70 66 bytes

(#//.{a___,bb__,bb_,c___}:>{a,c})=={}(**(}{)}c,a{>:}_c,a{.#(&)**)&

Try it online!

###Without comments, 92 bytes

((#//.bb_:>StringReplace[00[ecalpeRgnirtS>aa__:_.#&];bb,{{,}};00>00;00;aa:_~~aa_:>""]))==""&

Try it online!