Name: Rolf Mertig Date: 12/20/17-10:59:10 PM Z
Hola,
this can be done using “Uncontract” and the option Unique->False.
Adding FCE for abbreviation this
FCE[Uncontract[LC[u, v][p1,
p2], p1, p2, Unique ->
False] /. {$AL[1] :> s,
$AL[2] :> a}] /.
LC[a, s, u, v] :>
LC[u, v, a, s]
evaluates to
FV[p1, a] FV[p2, s] LC[u, v, a, s]