rewriteIdentityFlag : Ref Ctxt Defs => Name -> Core ()
setIdentity : Ref Ctxt Defs => Name -> Core ()