+@defun riece-identity-equal-no-server ident1 ident2
+\e$BFs$D$NBg0hI=5-$N%5!<%P0J30$NItJ,$,F1Ey$+D4$Y$^$9!#\e(B
+@end defun
+
+@defun riece-identity-member elt list
+\e$BBg0hI=5-\e(B @var{elt} \e$B$,\e(B @var{list} \e$B$K4^$^$l$k$+8!::$7$^$9!#\e(B
+@end defun
+
+@defun riece-identity-member-safe elt list
+@code{riece-identity-member} \e$B$H0l=o$G$9$,!"0z?t$K%5!<%PL>$,IU2C$5$l$F$$\e(B
+\e$B$J$1$l$P!"IU2C$7$F$+$i8!::$r9T$$$^$9!#\e(B
+@end defun
+
+@defun riece-identity-member-no-server elt list
+@code{riece-identity-member} \e$B$H0l=o$G$9$,!"Bg0hI=5-$N%5!<%P0J30$NItJ,$@\e(B
+\e$B$1$r8!::$7$^$9!#\e(B
+@end defun
+