如何在现实世界中的HOL中编写证明

Question

我正在尝试使用HOL解决以下问题，但仍停留在进一步的步骤上。

爱丽丝在网上购买了电影票并打印了出来。 爱丽丝到达电影院A并到达入口后，高尔德就要求出票。 实施此HOL的正确方法是什么？

我将语句转换为形式化：

Alice says <entry, movie>  
TheatreA controls (Alice controls <entry, movie>)  
ticket => TheaterA  
ticket says (Alice controls <entry, movie>)  
<entry, movie>  

一些HOL：

val _ =
Datatype
`staff = Alice | theaterA`

val commandProp = ``(prop entry):(commands,staff,'d,'e)Form``;
val princTerm = ``Name Alice``;
val term1 = ``((Name Alice) says (prop entry)):(commands,staff,'d,'e)Form``;
val term2 = ``((Name Alice) controls (prop rntry)):(commands,staff,'d,'e)Form``;