Faits:
A.
A._ a requis un permis de construire un chalet de six appartements sur la parcelle n° 4023 de la commune d'Ormont-Dessus. Helvetia Nostra a formé opposition. Par décision du 21 décembre 2012, la Municipalité d'Ormont-Dessus a écarté l'opposition; elle a délivré le permis de construire, qui porte la date du 17 décembre 2012. Helvetia Nostra a saisi la Cour de droit administratif et public du Tribunal cantonal vaudois, laquelle a rejeté le recours dans la mesure où il était recevable - laissant indécise la question de la qualité pour agir d'Helvetia Nostra - par arrêt du 9 avril 2013. La cour cantonale s'est référée à un arrêt de principe du 22 novembre 2012 selon lequel l'art. 75b Cst. ne faisait pas obstacle à la délivrance de permis de construire avant le 1 er janvier 2013. Elle a mis à la charge de la recourante 1'000 fr. d'émolument judiciaire.
B.
Agissant par la voie du recours en matière de droit public, Helvetia Nostra demande au Tribunal fédéral l'annulation de l'arrêt cantonal et le renvoi de la cause à l'autorité de dernière instance, subsidiairement la réforme de l'arrêt attaqué en ce sens que le permis de construire est annulé.
Dans des arrêts de principe du 22 mai 2013, le Tribunal fédéral a notamment admis la qualité pour recourir d'Helvetia Nostra (ATF 139 11 271) ainsi que l'applicabilité directe des art. 75b et 197 ch. 9 Cst. (ATF 139 Il 243 et 263).
Sur le vu de ces arrêts, les parties ont été invitées à se déterminer. Le Tribunal cantonal s'en rapporte à justice. La Municipalité d'Ormont-Dessus a fait savoir que le projet concernait désormais une résidence principale et que la mention correspondante allait être intégrée au permis de construire et portée au registre foncier. Elle en déduit que le recours serait devenu sans objet. La commune s'en remet à justice pour le surplus. La constructrice n'a pas présenté d'observations.
Considérant en droit:
1.
1.1. Dans son arrêt de principe du 22 mai 2013 (ATF 139 Il 271), le Tribunal fédéral rappelle qu'Helvetia Nostra fait partie des organisations habilitées à recourir dans le domaine de la protection de la nature et du paysage au sens de l'art. 12 al. 1 let. b LPN (ch. 9 de la liste annexée ODO, RS 814.076). Le recours de ces associations n'est recevable que dans la mesure où l'objet du litige procède d'une tâche de la Confédération au sens des art. 78 Cst. et 2 LPN. L'art. 75b Cst. est une disposition directement applicable qui charge la Confédération de veiller au plafonnement des résidences secondaires à 20 %. L'objectif de cette norme est en premier lieu la protection de la nature et du paysage. Le Tribunal fédéral considère ainsi que le permis de construire une résidence secondaire repose sur des éléments spécialement régis par le droit fédéral et intervient donc en exécution d'une tâche de la Confédération (consid. 11 .3). La qualité pour recourir doit dès lors être reconnue à Helvetia Nostra (consid. 11.4).
1.2. Le Tribunal fédéral a par ailleurs admis, dans un deuxième arrêt de principe du 22 mai 2013 (ATF 139 Il 243 consid. 9-11), que l'art. 75b Cst. (en relation avec l'art. 197 ch. 9 al. 2 Cst.) est directement applicable dès son entrée en vigueur le 11 mars 2012. Dans les communes où le taux de 20 % de résidences secondaires est déjà atteint, les permis de construire délivrés entre le 11 mars 2012 et le 31 décembre 2012 sont annulables.
2.
Sur le vu de ces arrêts, il y a lieu d'admettre la qualité d'Helvetia Nostra pour s'opposer au projet litigieux. La nature de ce dernier n'est en revanche pas clairement définie. Alors que la constructrice ne s'est pas déterminée, la municipalité a fait savoir que le projet, qui comporte six appartements, serait désormais affecté à la résidence principale, avec la mention correspondante au permis de construire et au registre foncier. Cette question, déterminante, n'a toutefois pas été examinée par les instances précédentes puisque les nouvelles dispositions constitutionnelles ont été jugées, à tort, inapplicables. Conformément à l'art. 99 al. 1 LTF, il n'appartient pas au Tribunal fédéral de statuer en première instance sur la base d'éléments nouveaux.
3.
Il y a lieu dès lors d'annuler l'arrêt attaqué. Dans un tel cas, le Tribunal fédéral peut renvoyer la cause à l'autorité précédente ou à celle qui a statué en première instance (art. 107 al. 2 LTF). Se pose la question de savoir si la cause doit être renvoyée à la cour cantonale ou à l'autorité communale, après annulation de l'autorisation de construire. En l'occurrence, la question de la conformité de l'autorisation de construire à l'art. 75b Cst. n'a pas été examinée lors du rejet de l'opposition par la commune et de l'octroi du permis de construire; l'affectation du projet - en résidence principale ou secondaire - ne paraît d'ailleurs pas être clairement établie. La constructrice devra donc, si elle maintient sa demande de permis de construire, apporter les éclaircissements nécessaires sur ces points. Il y a donc lieu d'annuler le permis de construire (dont l'admissibilité n'est en l'état pas démontrée) et de renvoyer la cause à l'autorité communale pour nouvelle décision.
4.
Compte tenu de l'issue de la cause, les frais judiciaires sont mis à la charge de l'intimée qui, à ce stade, succombe (art. 66 al. 1 L TF). La recourante, qui a agi sans avocat (le mémoire n'est signé que par son seul président), n'a pas droit à des dépens. Il y a lieu également, conformément aux art. 67 et 68 al. 5 LTF, de statuer sur les frais et dépens pour la procédure devant le Tribunal cantonal. La constructrice n'a certes pas été appelée à procéder devant cette instance mais, compte tenu de ce qui précède, la cour cantonale aurait dû statuer en sa défaveur. En instance cantonale, la recourante était représentée par un avocat, ce qui lui donne droit à des dépens. Au vu du grand nombre de recours similaires déposés par la recourante, il convient de réduire ceux-ci et de les fixer à 1'000 fr.
Par ces motifs, le Tribunal fédéral prononce:
1.
Le recours est admis. L'arrêt attaqué est annulé, de même que l'autorisation de construire du 17 décembre 2012 et la décision municipale du 21 décembre 2012. La cause est renvoyée à la Municipalité d'Ormont-Dessus pour nouvelle décision dans le sens des considérants.
2.
Les frais judiciaires pour la procédure fédérale, arrêtés à 1 '000 fr., de même que les frais de l'arrêt cantonal, soit 1'000 fr., sont mis à la charge de l'intimée A._.
3.
Une indemnité de dépens de 1'000 fr. est allouée à la recourante pour la procédure cantonale, à la charge de l'intimée A._.
4.
Le présent arrêt est communiqué aux parties, à la Municipalité d'Ormont-Dessus et au Tribunal cantonal du canton de Vaud, Cour de droit administratif et public.
Lausanne, le 22 octobre 2013
Au nom de la Ire Cour de droit public
du Tribunal fédéral suisse
Le Juge présidant: Aemisegger
Le Greffier: Kurz