resolved name clash with datatype constructor (Isabelle-related)
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@5388 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
802f085a5f
commit
f3947ff40f
|
@ -34,8 +34,8 @@ open Rep_StateMachine
|
|||
open Rep_SecureUML_ComponentUML.Security
|
||||
|
||||
type Pair = string * string
|
||||
fun VarN((Name,Value):Pair) = Name
|
||||
fun VarV((Name,Value):Pair) = Value
|
||||
fun VarN((name,Value):Pair) = name
|
||||
fun VarV((name,Value):Pair) = Value
|
||||
|
||||
(* Event-Guard-Path *)
|
||||
datatype GEPath = GELeaf of Guard option * Event option * StateVertex_Id
|
||||
|
|
Loading…
Reference in New Issue