https://sourceforge.net/p/alloymda/wiki/Book.als/Recent changes to Book.alsenSun, 25 Mar 2012 20:05:41 -0000https://sourceforge.net/p/alloymda/wiki/Book.als/<pre>--- v1 +++ v2 @@ -6,19 +6,19 @@ abstract sig Target { } sig Addr extends Target { } -sig Email in Addr { } - +sig email in Addr { } + sig Name extends Target { type : one Type } enum Type { Alias, Group } sig Book { names: Name some -> Time, addr: Name -> Target set -> Time } fact { all t : Time | all b : Book | b.addr.t.Target in b.names.t } fact { all t : Time | all b : Book | (Name.(b.addr.t) & Name) in b.names.t } fact { all t : Time | all b : Book | all n : b.names.t | some n.(b.addr.t) } fact { all t : Time | all b : Book | no n : Name | n in n.^(b.addr.t) } fact { all t : Time | all b : Book | all n : type.Alias | lone n.(b.addr.t) } -fact { all t : Time | all b : Book | all n : Name | lone n.(b.addr.t :> Email) } +fact { all t : Time | all b : Book | all n : Name | lone n.(b.addr.t :> email) } run { } for 4 but exactly 1 Book, exactly 1 Time </pre>Alcino CunhaSun, 25 Mar 2012 20:05:41 -0000https://sourceforge.netcf38b77c1a588c8f285c3a749d380d24c6272b8ehttps://sourceforge.net/p/alloymda/wiki/Book.als/~~~~~ module AddressBook sig Time { } abstract sig Target { } sig Addr extends Target { } sig Email in Addr { } sig Name extends Target { type : one Type } enum Type { Alias, Group } sig Book { names: Name some -> Time, addr: Name -> Target set -> Time } fact { all t : Time | all b : Book | b.addr.t.Target in b.names.t } fact { all t : Time | all b : Book | (Name.(b.addr.t) & Name) in b.names.t } fact { all t : Time | all b : Book | all n : b.names.t | some n.(b.addr.t) } fact { all t : Time | all b : Book | no n : Name | n in n.^(b.addr.t) } fact { all t : Time | all b : Book | all n : type.Alias | lone n.(b.addr.t) } fact { all t : Time | all b : Book | all n : Name | lone n.(b.addr.t :> Email) } run { } for 4 but exactly 1 Book, exactly 1 Time pred add [b: Book, n: Name, a: Target, t,t': Time] { n in b.names.t a not in n.(b.addr.t) b.addr.t' in b.addr.t + n->a b.names.t' = b.names.t } run add for 3 but 1 Book, 2 Time fun lookup [b: Book, n: Name, t: Time] : set Addr { n.^(b.addr.t) & Addr } check { all t : Time, b : Book, n : b.names.t | some lookup[b,n,t] } for 4 but 1 Time, 1 Book ~~~~~Alcino CunhaTue, 20 Mar 2012 18:04:44 -0000https://sourceforge.net448071bb40caf09c97597cb1816211495d27ad8e