24 lines
464 B
Text
24 lines
464 B
Text
|
import logic
|
||
|
|
||
|
definition b :=
|
||
|
let a := true ∧ true,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a,
|
||
|
a := a ∧ a in
|
||
|
a
|
||
|
|
||
|
check b
|