fact: Fixpoint v_add f' (t: v f') n: (Pred -> tst (f' n)) -> v f' := match t with | v_L f' => match n with | xH => fun x => v_N _ (v_L _) x (v_L _) | xO n => fun x => v_N _ (v_add (fun n => f' (xO n)) (v_L _) n x) (fun _ => lattice.top) (v_L _) | xI n => fun x => v_N _ (v_L _) (fun _ => lattice.top) (v_add (fun n => f' (xI n)) (v_L _) n x) end | v_N f' l y r => match n with | xH => fun x => v_N _ l x r | xO n => fun x => v_N _ (v_add (fun n => f' (xO n)) l n x) y r | xI n => fun x => v_N _ l y (v_add (fun n => f' (xI n)) r n x) end end.
imports: lsyntax ordinal lset positives kat gregex syntax