#import "../src/cetz-cd.typ": *

// #cetz-cd(```
// $A$ ar[r, $g$] ar[rd, $f$, swapped] & $B$ ar[d] ;
// & $D$
// ```)

    #cetz-cd(```
        $EE$ ar[r, $tau_i$] & $EE_i$ ar[r] & $FF^"alg"$;
        $FF[alpha]$ ar[r, $sigma_i$] ar[u] & $FF[sigma_i alpha]$ ar[u] ar[r] & $FF[sigma_i alpha]$ ar[u] ;
        $FF$ ar[u] ar[r] & $FF$ ar[u] & $$;
    ```)

    #cetz-cd(```
    $EE$ & & $EE'$;
    & $FF$ ar[lu] ar[ru] &
```, width: 1, height: 1)

#cetz-cd(```
    $R$ & ;
        & $S(R, A)$ ar[lu] ;
    $A$ ar[ru] ar[uu] &
```, height: 1)

#cetz-cd(```
    $ZZ$ ar[r] ar[d] & $QQ$ ar[d];
    $?$ ar[r] & $FF$
```, width: 1, height: 1)