This routine is part of the liesymm package and is loaded via with(liesymm).

Given an expression expr involving a single wedge product factor out the coefficient.

If more than one wedge product is encountered an error message is given.

$\mathrm{with}\left(\mathrm{liesymm}\right)\:$$\mathrm{setup}\left(x\,y\,z\right)\:$

$\mathrm{getform}\left(ad\left(x\right)\right)$

$d\left(x\right)$

$\mathrm{getform}\left(ad\left(x\right)+bd\left(x\right)\right)$

$d\left(x\right)$

$\mathrm{map}\left(\mathrm{getform}\,ad\left(x\right)+bd\left(y\right)\right)$

$d\left(x\right)+d\left(y\right)$

$\mathrm{getform}\left(\frac{1}{c}d\left(x\right)\&ˆd\left(y\right)\right)$

$d\left(x\right)\&ˆd\left(y\right)$

$\mathrm{getform}\left(c\right)$

$1$