191def parameterSchemaContainsIdentity =
192 (lambda unrestricted wanted : (family ParameterIdentity) .
193 (lambda unrestricted schemas : (family StdList (family ParameterSchema)) .
194 (eliminate
195 StdList
196 (lambda unrestricted current : (family StdList (family ParameterSchema)) . (family StdBool))
197 schemas
198 (branch StdListEmpty . (constructor StdBool StdFalse))
199 (branch
200 StdListCons
201 head
202 tail
203 induction
204 .
205 (stdBoolOr (parameterIdentityEqual wanted (parameterSchemaIdentityOf head)) induction)))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.