Nth.xml 1.5 KB
Newer Older
1
<theory name="list.Nth" realize="true"><realized><require name="why3.BuiltIn.BuiltIn"/><require name="int.Int"/><require name="list.List"/></realized><function><eqn altname="nth" path="list.Nth"><app><const name="HOL.eq"/><app><var name="nth"><fun><type name="Int.int"/><type name="List.list"><tvar name="a"/></type><type name="Option.option"><tvar name="a"/></type></fun></var><var name="n"><type name="Int.int"/></var><var name="l"><type name="List.list"><tvar name="a"/></type></var></app><case><var name="l"><type name="List.list"><tvar name="a"/></type></var><pat><const name="List.list.Nil"><type name="List.list"><tvar name="a"/></type></const><const name="Option.option.None"><type name="Option.option"><tvar name="a"/></type></const></pat><pat><app><const name="List.list.Cons"/><var name="x"><tvar name="a"/></var><var name="r"><type name="List.list"><tvar name="a"/></type></var></app><app><const name="HOL.If"/><app><const name="HOL.eq"/><var name="n"><type name="Int.int"/></var><num val="0"><type name="Int.int"/></num></app><app><const name="Option.option.Some"/><var name="x"><tvar name="a"/></var></app><app><var name="nth"><fun><type name="Int.int"/><type name="List.list"><tvar name="a"/></type><type name="Option.option"><tvar name="a"/></type></fun></var><app><const name="Groups.minus_class.minus"/><var name="n"><type name="Int.int"/></var><num val="1"><type name="Int.int"/></num></app><var name="r"><type name="List.list"><tvar name="a"/></type></var></app></app></pat></case></app></eqn></function></theory>