comparison lib/ur/basis.urs @ 941:b8d7a47b8e0c

Fixed a Mono_reduce bug, which was breaking selection enabling in Grid
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Sep 2009 12:23:42 -0400
parents ed06e25c70ef
children 8c37699de273
comparison
equal deleted inserted replaced
940:e2be476673f2 941:b8d7a47b8e0c
678 ([Body] ++ other) ([Body, Table] ++ other) [] [] 678 ([Body] ++ other) ([Body, Table] ++ other) [] []
679 val tr : other ::: {Unit} -> [other ~ [Body, Table, Tr]] => unit 679 val tr : other ::: {Unit} -> [other ~ [Body, Table, Tr]] => unit
680 -> tag tableEvents 680 -> tag tableEvents
681 ([Body, Table] ++ other) ([Body, Tr] ++ other) [] [] 681 ([Body, Table] ++ other) ([Body, Tr] ++ other) [] []
682 val th : other ::: {Unit} -> [other ~ [Body, Tr]] => unit 682 val th : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
683 -> tag tableEvents 683 -> tag ([Colspan = int] ++ tableEvents)
684 ([Body, Tr] ++ other) ([Body] ++ other) [] [] 684 ([Body, Tr] ++ other) ([Body] ++ other) [] []
685 val td : other ::: {Unit} -> [other ~ [Body, Tr]] => unit 685 val td : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
686 -> tag tableEvents 686 -> tag ([Colspan = int] ++ tableEvents)
687 ([Body, Tr] ++ other) ([Body] ++ other) [] [] 687 ([Body, Tr] ++ other) ([Body] ++ other) [] []
688 688
689 689
690 (** Aborting *) 690 (** Aborting *)
691 691