∀ (K : Type u_1) [inst : Field K] [inst_1 : CharZero K] [inst_2 : NumberField.IsCMField K] [inst_3 : NumberField K]
  (i : Fin (NumberField.Units.rank K)),
  NumberField.IsCMField.realFundSystem K i =
    (Units.map
        ↑(algebraMap (NumberField.RingOfIntegers ↥(NumberField.maximalRealSubfield K)) (NumberField.RingOfIntegers K)))
      (NumberField.Units.fundSystem (↥(NumberField.maximalRealSubfield K)) ((finCongr ⋯) i))