fact: Definition afs_symb_union (f : M.symbol) : AfsM.afs_val := match f with | (true, f) => match afs_symb_marked f with | Afs.AFS_id g => AfsM.AFS_id (Nat.eqb (prec_marked f) (prec_marked g), g) | Afs.AFS_arg i => AfsM.AFS_arg i | Afs.AFS_filt g p => AfsM.AFS_filt (Nat.eqb (prec_marked f) (prec_marked g), g) p end | (_, f) => match afs_symb f with | Afs.AFS_id g => AfsM.AFS_id (Nat.eqb (prec f) (prec_marked g), g) | Afs.AFS_arg i => AfsM.AFS_arg i | Afs.AFS_filt g p => AfsM.AFS_filt (Nat.eqb (prec f) (prec_marked g), g) p end end.
imports: Coq(Setoid List Relations Lia Arith) CoLoR(weaved_relation list_permut terminaison)