5.
Vu la nature du litige, la procédure est gratuite (art. 134 OJ). A juste titre l'intimée ne demande pas de dépens, bien qu'elle obtienne gain de cause.
Par ces motifs, le Tribunal fédéral des assurances prononce:
1.
Le recours est rejeté.
2.
Il n'est pas perçu de frais de justice.
3.
Le présent arrêt sera communiqué aux parties, à Caisse fédérale de pensions PUBLICA, Berne, à la Cour des assurances sociales du Tribunal administratif du canton de Fribourg et à l'Office fédéral des assurances sociales.
Lucerne, le 25 février 2005
Au nom du Tribunal fédéral des assurances
Le Président de la IIe Chambre: Le Greffier: