Lensing/focus problem with ListModel

namespace Repro

open WebSharper
open WebSharper.UI.Next
open WebSharper.UI.Next.Html
open WebSharper.UI.Next.Client

[<JavaScript>]
module Lensing =
        
// Input loses focus:
// -----------------
//      let aliases = 
//          ListModel.Create id [ "Bill"; "Joe" ]
//      let lensIntoAlias aliasKey = 
//          aliases.LensInto id (fun a n -> n) aliasKey
//      let Main =
//          div [
//              aliases.View
//              |> Doc.BindSeqCached (fun (aliasKey: string) -> Doc.Input [] (lensIntoAlias aliasKey))
//
//              aliases.View
//              |> Doc.BindSeqCached (fun (aliasKey: string) -> div [ text aliasKey ])
                
//          ]
//          |> Doc.RunById "main"

// Workaround 1:
// ------------
//      type Alias = { Key: int; Value: string }
    
//      let aliases = 
//          ListModel.Create (fun a -> a.Key) [ { Key = 1; Value = "Bill" }; { Key = 2; Value = "Joe" } ]
//      let lensIntoAlias aliasKey = 
//          aliases.LensInto (fun a -> a.Value) (fun a n -> { a with Value = n }) aliasKey
        
//      let Main =
//          div 
//              [
//                  aliases.Value
//                  |> Seq.map (fun al -> Doc.Input [] (lensIntoAlias al.Key))
//                  |> Seq.cast
//                  |> Doc.Concat
                    
//                  aliases.View
//                  |> Doc.BindSeqCached (fun al -> div [ text al.Value ])
//              ]
//          |> Doc.RunById "main"

// Workaround 2: ListModel number of element changes
// ------------
    type Alias = { Key: int; Value: string }
    
    let aliases = 
        ListModel.Create (fun a -> a.Key) [ { Key = 1; Value = "Bill" }; { Key = 2; Value = "Joe" } ]
    let lensIntoAlias aliasKey = 
        aliases.LensInto (fun a -> a.Value) (fun a n -> { a with Value = n }) aliasKey
        
    let trigger =
        Var.Create ()

let Main =
        div 
            [
                Doc.Button 
                    "Add alias" 
                    [ attr.style "display: block" ]
                    (fun() -> 
                        aliases.Add({ Key = aliases.Length + 1; Value = "New" })
                        // trigger update here
                        trigger.Value <- ())
                
                aliases.View
                |> View.SnapshotOn aliases.Value trigger.View
                |> Doc.BindSeqCached (fun al -> Doc.Input [] (lensIntoAlias al.Key))
                    
                aliases.View
                |> Doc.BindSeqCached (fun al -> div [ text al.Value ])
            ]
        |> Doc.RunById "main"