equal
deleted
inserted
replaced
40 (* |
40 (* |
41 mk_Eq(~in) = `in == False' |
41 mk_Eq(~in) = `in == False' |
42 mk_Eq(in) = `in == True' |
42 mk_Eq(in) = `in == True' |
43 where `in' is an (in)equality. |
43 where `in' is an (in)equality. |
44 |
44 |
45 neg_prop(t) = neg if t is wrapped up in Trueprop and |
45 neg_prop(t) = neg if t is wrapped up in Trueprop and |
46 nt is the (logically) negated version of t, where the negation |
46 neg is the (logically) negated version of t, where the negation |
47 of a negative term is the term itself (no double negation!); |
47 of a negative term is the term itself (no double negation!); |
48 |
48 |
49 is_nat(parameter-types,t) = t:nat |
49 is_nat(parameter-types,t) = t:nat |
50 mk_nat_thm(t) = "0 <= t" |
50 mk_nat_thm(t) = "0 <= t" |
51 *) |
51 *) |